Water Quality and Potability
We are collecting a dataset on water quality to train a machine learning model for binary classification: determining whether water is safe for consumption (1) or not (0). This model will help with water treatment decisions and ensure compliance with quality standards. We applied different summarization and plotting methods to help us to understand our dataset, such as scatter, histogram and bar plot. Then, we applyed preprocess in our data using data cleaning, data transformation and feature selection.
#library:
#install.packages("caret")
#install.packages("glmnet")
#install.packages("Boruta")
#install.packages("mlbench")
#install.packages("randomForest")
library(outliers)
library(dplyr)
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, unionlibrary(mlbench)
library(caret)Loading required package: ggplot2
Loading required package: latticelibrary(glmnet)Loading required package: Matrix
Loaded glmnet 4.1-8library(Boruta)
library(ggplot2)
library(randomForest)randomForest 4.7-1.1
Type rfNews() to see new features/changes/bug fixes.
Attaching package: ‘randomForest’
The following object is masked from ‘package:ggplot2’:
margin
The following object is masked from ‘package:dplyr’:
combine
The following object is masked from ‘package:outliers’:
outlierlibrary(pROC)Type 'citation("pROC")' for a citation.
Attaching package: ‘pROC’
The following objects are masked from ‘package:stats’:
cov, smooth, varlibrary(e1071)
library(caret)
library(party)Loading required package: grid
Loading required package: mvtnorm
Loading required package: modeltools
Loading required package: stats4
Loading required package: strucchange
Loading required package: zoo
Attaching package: ‘zoo’
The following objects are masked from ‘package:base’:
as.Date, as.Date.numeric
Loading required package: sandwich
Attaching package: ‘party’
The following object is masked from ‘package:dplyr’:
wherelibrary(partykit)Loading required package: libcoin
Attaching package: ‘partykit’
The following objects are masked from ‘package:party’:
cforest, ctree, ctree_control, edge_simple, mob, mob_control, node_barplot, node_bivplot,
node_boxplot, node_inner, node_surv, node_terminal, varimplibrary(RWeka)
library(C50)
library(printr)Registered S3 method overwritten by 'printr':
method from
knit_print.data.frame rmarkdownlibrary(rpart)
library(rpart.plot)
getwd()[1] "/Users/mahayie/Documents/GitHub/DM1Project"#setwd("/Users/mahayie/Desktop/326p")
#getwd()
water_potability = read.csv('Dataset/water_potability.csv')
View(water_potability)
str(water_potability)'data.frame': 3276 obs. of 10 variables:
$ ph : num NA 3.72 8.1 8.32 9.09 ...
$ Hardness : num 205 129 224 214 181 ...
$ Solids : num 20791 18630 19910 22018 17979 ...
$ Chloramines : num 7.3 6.64 9.28 8.06 6.55 ...
$ Sulfate : num 369 NA NA 357 310 ...
$ Conductivity : num 564 593 419 363 398 ...
$ Organic_carbon : num 10.4 15.2 16.9 18.4 11.6 ...
$ Trihalomethanes: num 87 56.3 66.4 100.3 32 ...
$ Turbidity : num 2.96 4.5 3.06 4.63 4.08 ...
$ Potability : int 0 0 0 0 0 0 0 0 0 0 ...summary(water_potability) ph Hardness Solids Chloramines Sulfate Conductivity Organic_carbon
Min. : 0.000 Min. : 47.43 Min. : 320.9 Min. : 0.352 Min. :129.0 Min. :181.5 Min. : 2.20
1st Qu.: 6.093 1st Qu.:176.85 1st Qu.:15666.7 1st Qu.: 6.127 1st Qu.:307.7 1st Qu.:365.7 1st Qu.:12.07
Median : 7.037 Median :196.97 Median :20927.8 Median : 7.130 Median :333.1 Median :421.9 Median :14.22
Mean : 7.081 Mean :196.37 Mean :22014.1 Mean : 7.122 Mean :333.8 Mean :426.2 Mean :14.28
3rd Qu.: 8.062 3rd Qu.:216.67 3rd Qu.:27332.8 3rd Qu.: 8.115 3rd Qu.:360.0 3rd Qu.:481.8 3rd Qu.:16.56
Max. :14.000 Max. :323.12 Max. :61227.2 Max. :13.127 Max. :481.0 Max. :753.3 Max. :28.30
NA's :491 NA's :781
Trihalomethanes Turbidity Potability
Min. : 0.738 Min. :1.450 Min. :0.0000
1st Qu.: 55.845 1st Qu.:3.440 1st Qu.:0.0000
Median : 66.622 Median :3.955 Median :0.0000
Mean : 66.396 Mean :3.967 Mean :0.3901
3rd Qu.: 77.337 3rd Qu.:4.500 3rd Qu.:1.0000
Max. :124.000 Max. :6.739 Max. :1.0000
NA's :162 Checking for missing values:
dim(water_potability)[1] 3276 10sum(is.na(water_potability))[1] 1434Remove rows with missing values
colSums(is.na(water_potability)) ph Hardness Solids Chloramines Sulfate Conductivity Organic_carbon
491 0 0 0 781 0 0
Trihalomethanes Turbidity Potability
162 0 0 water_potability = na.omit(water_potability)
colSums(is.na(water_potability)) ph Hardness Solids Chloramines Sulfate Conductivity Organic_carbon
0 0 0 0 0 0 0
Trihalomethanes Turbidity Potability
0 0 0 View(water_potability)Description: The absence of data in certain variables or columns in a dataset is referred to as missing or null values due to various reasons. It can have a negative impact on the dataset’s efficiency and the information that can be taken from it later, so we checked to see whether our data had missing or null values and eliminated these rows to produce a more efficient dataset.
Standard deviation:
sd(water_potability$Turbidity)[1] 0.7803462sd(water_potability$Solids)[1] 8642.24sd(water_potability$Conductivity)[1] 80.71257sd(water_potability$Organic_carbon)[1] 3.324959sd(water_potability$ph)[1] 1.573337Mean:
mean(water_potability$Turbidity)[1] 3.969729mean(water_potability$Solids) [1] 21917.44mean(water_potability$Conductivity) [1] 426.5264mean(water_potability$Organic_carbon) [1] 14.35771mean(water_potability$ph) [1] 7.08599Median
median(water_potability$Turbidity)[1] 3.968177median(water_potability$Solids)[1] 20933.51median(water_potability$Conductivity)[1] 423.4559median(water_potability$Organic_carbon)[1] 14.32202median(water_potability$ph)[1] 7.027297Variance
var(water_potability$Turbidity)[1] 0.6089401var(water_potability$Solids)[1] 74688309var(water_potability$Conductivity)[1] 6514.519var(water_potability$Organic_carbon)[1] 11.05535var(water_potability$ph)[1] 2.475388Statistical Measures:
summary(water_potability$Conductivity) Min. 1st Qu. Median Mean 3rd Qu. Max.
201.6 366.7 423.5 426.5 482.4 753.3 summary(water_potability$Organic_carbon) Min. 1st Qu. Median Mean 3rd Qu. Max.
2.20 12.12 14.32 14.36 16.68 27.01 summary(water_potability$Hardness) Min. 1st Qu. Median Mean 3rd Qu. Max.
73.49 176.74 197.19 195.97 216.44 317.34 summary(water_potability$Solids) Min. 1st Qu. Median Mean 3rd Qu. Max.
320.9 15615.7 20933.5 21917.4 27182.6 56488.7 summary(water_potability$Chloramines) Min. 1st Qu. Median Mean 3rd Qu. Max.
1.391 6.139 7.144 7.134 8.110 13.127 summary(water_potability$Potability) Min. 1st Qu. Median Mean 3rd Qu. Max.
0.0000 0.0000 0.0000 0.4033 1.0000 1.0000 summary(water_potability$Sulfate) Min. 1st Qu. Median Mean 3rd Qu. Max.
129.0 307.6 332.2 333.2 359.3 481.0 summary(water_potability$Trihalomethanes) Min. 1st Qu. Median Mean 3rd Qu. Max.
8.577 55.953 66.542 66.401 77.292 124.000 summary(water_potability$Turbidity) Min. 1st Qu. Median Mean 3rd Qu. Max.
1.450 3.443 3.968 3.970 4.514 6.495 summary(water_potability$ph) Min. 1st Qu. Median Mean 3rd Qu. Max.
0.2275 6.0897 7.0273 7.0860 8.0530 14.0000 Descriotion: With using minimum, maximum, mean, median laws it helps to provide an overview of the data’s key characteristics
Data Transformation:
water_potability$Potability[water_potability$Potability == '0'] <- 'Not Potable'
water_potability$Potability[water_potability$Potability == '1'] <- 'Potable'
water_potability$Potability <- as.factor(water_potability$Potability)
table(water_potability$Potability)
Not Potable Potable
1200 811 print(water_potability)Description: This step involved transforming the class label, Potability, into categorical data. We changed the numeric data to ‘Not Potable’ and ‘Potable’ to indicate whether the water is safe for human consumption, where 1 represents ‘Potable’, and 0 represents ‘Not Potable’.
Outliers before removing outlier:
dim(water_potability)[1] 2011 10head(water_potability)removing outliers:
- ph
summary(water_potability$ph) Min. 1st Qu. Median Mean 3rd Qu. Max.
0.2275 6.0897 7.0273 7.0860 8.0530 14.0000 quartiles <- quantile(water_potability$ph, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
6.089723 8.052969 iqr <- IQR(water_potability$ph)
iqr[1] 1.963245lower <- quartiles[1] - 1.5*iqr
lower 25%
3.144855 upper <- quartiles[2] + 1.5*iqr
upper 75%
10.99784 boxplot(ph ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$ph, ylab = 'ph')$out
out_val
out_rows <- which(water_potability$ph %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$ph) Min. 1st Qu. Median Mean 3rd Qu. Max.
3.231 6.105 7.027 7.087 8.030 10.905 #--------------------------------------------Hardness
summary(water_potability$Hardness) Min. 1st Qu. Median Mean 3rd Qu. Max.
73.49 176.90 197.36 196.27 216.44 317.34 quartiles <- quantile(water_potability$Hardness, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
176.9031 216.4411 iqr <- IQR(water_potability$Hardness)
iqr[1] 39.53799lower <- quartiles[1] - 1.5*iqr
lower 25%
117.5961 upper <- quartiles[2] + 1.5*iqr
upper 75%
275.7481 boxplot(Hardness ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Hardness, ylab = 'Hardness')$out
out_val
out_rows <- which(water_potability$Hardness %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Hardness) Min. 1st Qu. Median Mean 3rd Qu. Max.
121.0 177.7 197.3 196.2 215.5 272.1 #--------------------------------------------Solids
summary(water_potability$Solids) Min. 1st Qu. Median Mean 3rd Qu. Max.
320.9 15704.5 20855.3 21840.2 27045.9 56488.7 quartiles <- quantile(water_potability$Solids, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
15704.48 27045.93 iqr <- IQR(water_potability$Solids)
iqr[1] 11341.45lower <- quartiles[1] - 1.5*iqr
lower 25%
-1307.69 upper <- quartiles[2] + 1.5*iqr
upper 75%
44058.1 boxplot(Solids ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Solids, ylab = 'Solids')$out
out_val
out_rows <- which(water_potability$Solids %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Solids) Min. 1st Qu. Median Mean 3rd Qu. Max.
320.9 15547.5 20518.7 21419.6 26734.7 43195.5 #--------------------------------------------Chloramines
summary(water_potability$Chloramines) Min. 1st Qu. Median Mean 3rd Qu. Max.
1.391 6.141 7.135 7.135 8.094 13.127 quartiles <- quantile(water_potability$Chloramines, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
6.141236 8.094323 iqr <- IQR(water_potability$Chloramines)
iqr[1] 1.953087lower <- quartiles[1] - 1.5*iqr
lower 25%
3.211605 upper <- quartiles[2] + 1.5*iqr
upper 75%
11.02395 boxplot(Chloramines ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Chloramines, ylab = 'Chloramines')$out
out_val
out_rows <- which(water_potability$Chloramines %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Chloramines) Min. 1st Qu. Median Mean 3rd Qu. Max.
3.352 6.181 7.137 7.136 8.076 10.897 #-------------------------------------------
-Sulfate
summary(water_potability$Sulfate) Min. 1st Qu. Median Mean 3rd Qu. Max.
187.2 308.2 332.6 333.4 358.3 481.0 quartiles <- quantile(water_potability$Sulfate, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
308.1884 358.3020 iqr <- IQR(water_potability$Sulfate)
iqr[1] 50.11358lower <- quartiles[1] - 1.5*iqr
lower 25%
233.0181 upper <- quartiles[2] + 1.5*iqr
upper 75%
433.4724 boxplot(Sulfate ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Sulfate, ylab = 'Sulfate')$out
out_val
out_rows <- which(water_potability$Sulfate %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Sulfate) Min. 1st Qu. Median Mean 3rd Qu. Max.
237.5 309.2 332.8 333.6 357.7 429.8 #-------------------------------------------
-Conductivity
summary(water_potability$Conductivity) Min. 1st Qu. Median Mean 3rd Qu. Max.
201.6 366.6 423.6 426.8 482.6 753.3 quartiles <- quantile(water_potability$Conductivity, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
366.5581 482.5983 iqr <- IQR(water_potability$Conductivity)
iqr[1] 116.0401lower <- quartiles[1] - 1.5*iqr
lower 25%
192.4979 upper <- quartiles[2] + 1.5*iqr
upper 75%
656.6585 boxplot(Conductivity ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Conductivity, ylab = 'Conductivity')$out
out_val
out_rows <- which(water_potability$Conductivity %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Conductivity) Min. 1st Qu. Median Mean 3rd Qu. Max.
201.6 366.4 423.1 426.0 481.9 652.5 #--------------------------------------------Organic_carbon
summary(water_potability$Organic_carbon) Min. 1st Qu. Median Mean 3rd Qu. Max.
4.372 12.184 14.351 14.417 16.788 27.007 quartiles <- quantile(water_potability$Organic_carbon, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
12.18447 16.78779 iqr <- IQR(water_potability$Organic_carbon)
iqr[1] 4.603315lower <- quartiles[1] - 1.5*iqr
lower 25%
5.279502 upper <- quartiles[2] + 1.5*iqr
upper 75%
23.69276 boxplot(Organic_carbon ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Organic_carbon, ylab = 'Organic_carbon')$out
out_val
out_rows <- which(water_potability$Organic_carbon %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Organic_carbon) Min. 1st Qu. Median Mean 3rd Qu. Max.
5.512 12.222 14.352 14.426 16.786 23.604 #--------------------------------------------Trihalomethanes
summary(water_potability$Trihalomethanes) Min. 1st Qu. Median Mean 3rd Qu. Max.
8.577 55.865 66.231 66.364 77.418 124.000 quartiles <- quantile(water_potability$Trihalomethanes, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
55.86494 77.41789 iqr <- IQR(water_potability$Trihalomethanes)
iqr[1] 21.55295lower <- quartiles[1] - 1.5*iqr
lower 25%
23.53552 upper <- quartiles[2] + 1.5*iqr
upper 75%
109.7473 boxplot(Trihalomethanes ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Trihalomethanes, ylab = 'Trihalomethanes')$out
out_val
out_rows <- which(water_potability$Trihalomethanes %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Trihalomethanes) Min. 1st Qu. Median Mean 3rd Qu. Max.
24.53 55.96 66.29 66.42 77.34 108.85 #--------------------------------------------Turbidity
summary(water_potability$Turbidity) Min. 1st Qu. Median Mean 3rd Qu. Max.
1.450 3.441 3.975 3.973 4.519 6.495 quartiles <- quantile(water_potability$Turbidity, probs = c(.25, .75), na.rm = FALSE)
quartiles 25% 75%
3.440859 4.518751 iqr <- IQR(water_potability$Turbidity)
iqr[1] 1.077892lower <- quartiles[1] - 1.5*iqr
lower 25%
1.824021 upper <- quartiles[2] + 1.5*iqr
upper 75%
6.135588 boxplot(Turbidity ~ Potability, data = water_potability)
repeat {
out_val <- boxplot(water_potability$Turbidity, ylab = 'Turbidity')$out
out_val
out_rows <- which(water_potability$Turbidity %in% c(out_val))
out_rows
if(sum(out_rows) > 0) water_potability <- water_potability[-out_rows,]
else {break}
}
summary(water_potability$Turbidity) Min. 1st Qu. Median Mean 3rd Qu. Max.
1.873 3.443 3.974 3.972 4.512 6.084 After removing outliers:
dim(water_potability)[1] 1750 10summary(water_potability) ph Hardness Solids Chloramines Sulfate Conductivity Organic_carbon
Min. : 3.388 Min. :121.0 Min. : 320.9 Min. : 3.352 Min. :237.5 Min. :201.6 Min. : 5.512
1st Qu.: 6.125 1st Qu.:177.8 1st Qu.:15465.4 1st Qu.: 6.189 1st Qu.:309.7 1st Qu.:366.4 1st Qu.:12.233
Median : 7.026 Median :197.3 Median :20468.8 Median : 7.135 Median :333.0 Median :422.4 Median :14.353
Mean : 7.075 Mean :196.0 Mean :21362.1 Mean : 7.131 Mean :333.9 Mean :426.0 Mean :14.434
3rd Qu.: 7.986 3rd Qu.:215.0 3rd Qu.:26588.0 3rd Qu.: 8.062 3rd Qu.:357.8 3rd Qu.:482.2 3rd Qu.:16.797
Max. :10.905 Max. :272.1 Max. :43195.5 Max. :10.897 Max. :429.8 Max. :652.5 Max. :23.604
Trihalomethanes Turbidity Potability
Min. : 24.53 Min. :1.873 Not Potable:1066
1st Qu.: 55.96 1st Qu.:3.443 Potable : 684
Median : 66.33 Median :3.974
Mean : 66.42 Mean :3.972
3rd Qu.: 77.34 3rd Qu.:4.512
Max. :108.85 Max. :6.084 str(water_potability)'data.frame': 1750 obs. of 10 variables:
$ ph : num 8.32 9.09 5.58 10.22 8.64 ...
$ Hardness : num 214 181 188 248 203 ...
$ Solids : num 22018 17979 28749 28750 13672 ...
$ Chloramines : num 8.06 6.55 7.54 7.51 4.56 ...
$ Sulfate : num 357 310 327 394 303 ...
$ Conductivity : num 363 398 280 284 475 ...
$ Organic_carbon : num 18.4 11.6 8.4 13.8 12.4 ...
$ Trihalomethanes: num 100.3 32 54.9 84.6 62.8 ...
$ Turbidity : num 4.63 4.08 2.56 2.67 4.4 ...
$ Potability : Factor w/ 2 levels "Not Potable",..: 1 1 1 1 1 1 1 1 1 1 ...
- attr(*, "na.action")= 'omit' Named int [1:1265] 1 2 3 9 12 14 15 17 19 21 ...
..- attr(*, "names")= chr [1:1265] "1" "2" "3" "9" ...head(water_potability)Description: Removing outliers from a dataset is critical for assuring the quality and reliability of statistical analysis and machine learning models. To produce a more accurate dataset that would help obtain more precise results later, we took the following steps to handle outliers in the numeric attributes. Firstly, we identified all the outliers. Secondly, we deleted the rows containing the outliers. Finally, we conducted a second check to ensure all outliers were deleted. Any new outliers due to the IQR change after deleting rows in the second step were also eliminated.
Charts
Histogram
hist(water_potability$ph)
hist(water_potability$Chloramines)
hist(water_potability$Hardness)
hist(water_potability$Solids)
hist(water_potability$Sulfate)
hist(water_potability$Conductivity)
hist(water_potability$Organic_carbon)
hist(water_potability$Trihalomethanes)
hist(water_potability$Turbidity)
Bar Plot
tab <- water_potability$Potability %>% table()
txt <- paste0(tab)
bb <- water_potability$ph %>% table() %>% barplot( main='ph',col=c('pink'))
bb <- water_potability$Potability %>% table() %>% barplot( main='Potability',ylab='Frequency',col=c('pink', 'lightblue'))
text(bb, tab/2, labels=txt, cex=1)
Pie chart
water_potability$Potability %>% table() %>% pie()
Scatter Plot
with(water_potability, plot(Turbidity, ph, col = Potability, pch = as.numeric(Potability)))
Description: -Histogram: The histogram shows the frequency of ph in the dataset; we noted that the majority of values fall within the usual range, which is about between 6 and 8, but it also shows several outliers. -Scatter plot: This scatter demonstrates the correlation and proportionality between the two qualities, allowing us to establish whether or not turbidity and pH are connected. -Bar Plot the bar plot represent how ph levels affect water portability in the dataset it indicates that ph level above 10 is not portibal and humans cant consume it
Remove Redundant Features:
correlation_matrix <- cor(water_potability[,1:9])
high_correlation_features <- findCorrelation(correlation_matrix, cutoff = 0.5)
print(high_correlation_features)integer(0)heatmap(correlation_matrix)
Description: This will find the correlation between the features and represent it in heat map
Feature selection
Rank Features By Importance:
#train random forest model and calculate feature importance
rf = randomForest(x= water_potability[,1:9],y= water_potability[,10])
var_imp <- varImp(rf, scale = FALSE)
#sort the score in decreasing order
var_imp_df <- data.frame(cbind(variable = rownames(var_imp), score = var_imp[,1]))
var_imp_df$score <- as.double(var_imp_df$score)
var_imp_df[order(var_imp_df$score,decreasing = TRUE),]
ggplot(var_imp_df, aes(x=reorder(variable, score), y=score)) +
geom_point() +
geom_segment(aes(x=variable,xend=variable,y=0,yend=score)) +
ylab("IncNodePurity") +
xlab("Variable Name") +
coord_flip()
Recursive Feature elimination:
control <- rfeControl(functions=rfFuncs, method="cv",number=10)
rf <- trainControl(method = "cv", number = 10, verboseIter = FALSE)
# run the RFE algorithm
rfe_model <- rfe(x= water_potability[,1:9],y= water_potability[,10], sizes=c(1:9), rfeControl=control)
# summarize the results
print(rfe_model)
Recursive feature selection
Outer resampling method: Cross-Validated (10 fold)
Resampling performance over subset size:
The top 5 variables (out of 5):
Sulfate, ph, Hardness, Solids, Chloramines# list the chosen features
predictors(rfe_model)[1] "Sulfate" "ph" "Hardness" "Solids" "Chloramines"# plot the results
plot(rfe_model, type=c("g", "o"))
Description: Ranking features by importance is a technique used to identify the most influential variables in a dataset for predicting a target variable. This process helps understand which features impact the model’s performance most by ranking features by importance.
Removing redundant features means eliminating variables or features from a dataset that do not provide additional or unique information.
Data transformation
Discretization:
wp<- water_potability
wp$ph= cut(wp$ph, breaks = seq(3,11,by=4),right=FALSE)
wp$Hardness= cut(wp$Hardness, breaks = seq(120,280,by=40),right=FALSE)
wp$Chloramines = cut(wp$Chloramines, breaks = seq(3,11,by=4),right = FALSE)
wp$Sulfate= cut(wp$Sulfate, breaks = seq(220,440,by=44),right=FALSE)
wp$Conductivity= cut(wp$Conductivity, breaks = seq(200,700,by=100),right=FALSE)
wp$Organic_carbon= cut(wp$Organic_carbon, breaks = seq(4,24,by=4),right=FALSE)
wp$Trihalomethanes= cut(wp$Trihalomethanes, breaks = seq(20,110,by=10),right=FALSE)
wp$Turbidity= cut(wp$Turbidity, breaks = seq(1,7,by=2),right=FALSE)
print(wp)Description: Discretization is the process of transforming continuous variables into discrete or categorical variables. It can be useful for analyzing data with many unique values or simplifying it. Therefore, we transformed the continuous values of the numeric attributes into intervals by dividing the values to fall on one of the possible interval labels by discretization. The values will be meaningful and simpler to classify or perform other methods to help us later in our model. So, In Trihalomethanes, we intervals by dividing the values by 10 to have labels with equal width : [20,30) [30,40) [40,50) [50,60) [60,70) [70,80) [80,90) [90,100) [100,110).
Normlization
normalize=function(x){return ((x-min(x))/(max(x)))}
wp$Solids=normalize(wp$Solids)Description: Normalization refers to the process of scaling variables to have a common range. It helps in comparing variables with different scales. The solids attribute will create critical challenges because of the vast and diverted values: min is 320.9, and max is 43195.5, so we normalized the solids between 0 and 1 to make values smaller and more reasonable.
Encoding
Description: Encoding is converting characters or strings into a specific encoding format. We could not implement it since our database does not have a Nominal attribute.
wpInformation gain (ID3) Splitting the data set into two subsets: Training(70%) and Testing(30%):
set.seed(1958)
ind <- sample(2, nrow(wp), replace = TRUE, prob = c(0.7, 0.3))
train.data <- wp[ind == 1, ]
test.data <- wp[ind == 2, ]
train.data$Potability <- as.factor(train.data$Potability)
test.data$Potability <- as.factor(test.data$Potability)
myFormula <- Potability ~ ph+Hardness+Solids+Chloramines+Sulfate+Conductivity+Organic_carbon+Trihalomethanes+Turbidity
#myFormula <- Potability ~ ph+Hardness+Solids+Chloramines+Sulfate
m.ctree <- ctree(myFormula, data = train.data)
table(predict(m.ctree), train.data$Potability)
Not Potable Potable
Not Potable 720 412
Potable 35 56print(m.ctree)
Model formula:
Potability ~ ph + Hardness + Solids + Chloramines + Sulfate +
Conductivity + Organic_carbon + Trihalomethanes + Turbidity
Fitted party:
[1] root
| [2] Sulfate in [220,264), [396,440): Potable (n = 91, err = 38.5%)
| [3] Sulfate in [264,308), [308,352), [352,396): Not Potable (n = 1132, err = 36.4%)
Number of inner nodes: 1
Number of terminal nodes: 2plot(m.ctree, type="simple")
testPred <- predict(m.ctree, newdata = test.data)
result<-table(testPred, test.data$Potability)
co_result <- confusionMatrix(result)
print(co_result)Confusion Matrix and Statistics
testPred Not Potable Potable
Not Potable 293 200
Potable 18 16
Accuracy : 0.5863
95% CI : (0.543, 0.6287)
No Information Rate : 0.5901
P-Value [Acc > NIR] : 0.5886
Kappa : 0.0186
Mcnemar's Test P-Value : <2e-16
Sensitivity : 0.94212
Specificity : 0.07407
Pos Pred Value : 0.59432
Neg Pred Value : 0.47059
Prevalence : 0.59013
Detection Rate : 0.55598
Detection Prevalence : 0.93548
Balanced Accuracy : 0.50810
'Positive' Class : Not Potable
as.matrix(co_result, what = "classes") [,1]
Sensitivity 0.94212219
Specificity 0.07407407
Pos Pred Value 0.59432049
Neg Pred Value 0.47058824
Precision 0.59432049
Recall 0.94212219
F1 0.72885572
Prevalence 0.59013283
Detection Rate 0.55597723
Detection Prevalence 0.93548387
Balanced Accuracy 0.50809813acc <- co_result$overall["Accuracy"]
acc*100Accuracy
58.63378 pred_probs <- as.numeric(predict(m.ctree, newdata = test.data, type = "response"))
binary_outcome <- as.numeric(test.data$Potability == "Potable")
# ROC curve
roc_curve <- roc(binary_outcome, pred_probs)Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.5080981 Splitting the data set into two subsets: Training(80%) and Testing(20%):
set.seed(1958)
ind <- sample(2, nrow(wp), replace = TRUE, prob = c(0.8, 0.2))
train.data <- wp[ind == 1, ]
test.data <- wp[ind == 2, ]
train.data$Potability <- as.factor(train.data$Potability)
myFormula <- Potability ~ ph+Hardness+Solids+Chloramines+Sulfate+Conductivity+Organic_carbon+Trihalomethanes+Turbidity
#myFormula <- Potability ~ ph+Hardness+Solids+Chloramines+Sulfate
m.ctree <- ctree(myFormula, data = train.data)
table(predict(m.ctree), train.data$Potability)
Not Potable Potable
Not Potable 854 472
Potable 12 55print(m.ctree)
Model formula:
Potability ~ ph + Hardness + Solids + Chloramines + Sulfate +
Conductivity + Organic_carbon + Trihalomethanes + Turbidity
Fitted party:
[1] root
| [2] Sulfate in [220,264), [264,308), [352,396), [396,440)
| | [3] Solids <= 0.64014: Not Potable (n = 598, err = 40.1%)
| | [4] Solids > 0.64014
| | | [5] Sulfate in [220,264), [264,308)
| | | | [6] ph in [3,7)
| | | | | [7] Chloramines in [3,7): Potable (n = 17, err = 23.5%)
| | | | | [8] Chloramines in [7,11): Not Potable (n = 15, err = 20.0%)
| | | | [9] ph in [7,11): Potable (n = 50, err = 16.0%)
| | | [10] Sulfate in [352,396), [396,440): Not Potable (n = 62, err = 38.7%)
| [11] Sulfate in [308,352): Not Potable (n = 651, err = 31.5%)
Number of inner nodes: 5
Number of terminal nodes: 6plot(m.ctree, type="simple")
testPred <- predict(m.ctree, newdata = test.data)
result<-table(testPred, test.data$Potability)
co_result <- confusionMatrix(result)
print(co_result)Confusion Matrix and Statistics
testPred Not Potable Potable
Not Potable 192 144
Potable 8 13
Accuracy : 0.5742
95% CI : (0.5211, 0.6261)
No Information Rate : 0.5602
P-Value [Acc > NIR] : 0.3163
Kappa : 0.0472
Mcnemar's Test P-Value : <2e-16
Sensitivity : 0.9600
Specificity : 0.0828
Pos Pred Value : 0.5714
Neg Pred Value : 0.6190
Prevalence : 0.5602
Detection Rate : 0.5378
Detection Prevalence : 0.9412
Balanced Accuracy : 0.5214
'Positive' Class : Not Potable
as.matrix(co_result, what = "classes") [,1]
Sensitivity 0.96000000
Specificity 0.08280255
Pos Pred Value 0.57142857
Neg Pred Value 0.61904762
Precision 0.57142857
Recall 0.96000000
F1 0.71641791
Prevalence 0.56022409
Detection Rate 0.53781513
Detection Prevalence 0.94117647
Balanced Accuracy 0.52140127acc <- co_result$overall["Accuracy"]
acc*100Accuracy
57.42297 pred_probs <- as.numeric(predict(m.ctree, newdata = test.data, type = "response"))
binary_outcome <- as.numeric(test.data$Potability == "Potable")
# ROC curve
roc_curve <- roc(binary_outcome, pred_probs)Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.5214013 Splitting the data set into two subsets: Training(90%) and Testing(10%):
set.seed(1958)
ind <- sample(2, nrow(wp), replace = TRUE, prob = c(0.9, 0.1))
train.data <- wp[ind == 1, ]
test.data <- wp[ind == 2, ]
train.data$Potability <- as.factor(train.data$Potability)
myFormula <- Potability ~ ph+Hardness+Solids+Chloramines+Sulfate+Conductivity+Organic_carbon+Trihalomethanes+Turbidity
#myFormula <- Potability ~ ph+Hardness+Solids+Chloramines+Sulfate
m.ctree <- ctree(myFormula, data = train.data)
table(predict(m.ctree), train.data$Potability)
Not Potable Potable
Not Potable 904 501
Potable 58 110print(m.ctree)
Model formula:
Potability ~ ph + Hardness + Solids + Chloramines + Sulfate +
Conductivity + Organic_carbon + Trihalomethanes + Turbidity
Fitted party:
[1] root
| [2] Sulfate in [220,264), [264,308), [352,396), [396,440)
| | [3] Solids <= 0.66526
| | | [4] Sulfate in [220,264), [396,440): Potable (n = 86, err = 43.0%)
| | | [5] Sulfate in [264,308), [352,396): Not Potable (n = 618, err = 39.6%)
| | [6] Solids > 0.66526
| | | [7] Sulfate in [220,264), [264,308): Potable (n = 82, err = 25.6%)
| | | [8] Sulfate in [352,396), [396,440): Not Potable (n = 54, err = 37.0%)
| [9] Sulfate in [308,352): Not Potable (n = 733, err = 32.2%)
Number of inner nodes: 4
Number of terminal nodes: 5plot(m.ctree, type="simple")
testPred <- predict(m.ctree, newdata = test.data)
result<-table(testPred, test.data$Potability)
co_result <- confusionMatrix(result)
print(co_result)Confusion Matrix and Statistics
testPred Not Potable Potable
Not Potable 91 64
Potable 13 9
Accuracy : 0.565
95% CI : (0.4885, 0.6392)
No Information Rate : 0.5876
P-Value [Acc > NIR] : 0.7547
Kappa : -0.0019
Mcnemar's Test P-Value : 1.212e-08
Sensitivity : 0.8750
Specificity : 0.1233
Pos Pred Value : 0.5871
Neg Pred Value : 0.4091
Prevalence : 0.5876
Detection Rate : 0.5141
Detection Prevalence : 0.8757
Balanced Accuracy : 0.4991
'Positive' Class : Not Potable
as.matrix(co_result, what = "classes") [,1]
Sensitivity 0.8750000
Specificity 0.1232877
Pos Pred Value 0.5870968
Neg Pred Value 0.4090909
Precision 0.5870968
Recall 0.8750000
F1 0.7027027
Prevalence 0.5875706
Detection Rate 0.5141243
Detection Prevalence 0.8757062
Balanced Accuracy 0.4991438acc <- co_result$overall["Accuracy"]
acc*100Accuracy
56.49718 pred_probs <- as.numeric(predict(m.ctree, newdata = test.data, type = "response"))
binary_outcome <- as.numeric(test.data$Potability == "Potable")
# ROC curve
roc_curve <- roc(binary_outcome, pred_probs)Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.4991438 Gain ratio (C4.5)
# 3 folds
set.seed(1958)
train <- createFolds(wp$Potability, k=3)
C45Fit <- train(Potability ~ .,method = "J48",data = wp,
trControl = trainControl(
method = "cv",
index = train,
savePredictions = TRUE))
C45FitC4.5-like Trees
1750 samples
9 predictor
2 classes: 'Not Potable', 'Potable'
No pre-processing
Resampling: Cross-Validated (10 fold)
Summary of sample sizes: 584, 583, 583
Resampling results across tuning parameters:
C M Accuracy Kappa
0.010 1 0.6140010 0.02242533
0.010 2 0.6080020 0.05080768
0.010 3 0.6148589 0.02353259
0.255 1 0.5865761 0.09696359
0.255 2 0.5800048 0.08645875
0.255 3 0.5842866 0.08011865
0.500 1 0.5548589 0.06529168
0.500 2 0.5622907 0.07454861
0.500 3 0.5668601 0.07437164
Accuracy was used to select the optimal model using the largest value.
The final values used for the model were C = 0.01 and M = 3.C45Fit$finalModelJ48 pruned tree
------------------
Sulfate[396,440) <= 0: Not Potable (1670.0/640.0)
Sulfate[396,440) > 0
| ph[7,11) <= 0: Potable (42.0/10.0)
| ph[7,11) > 0: Not Potable (38.0/12.0)
Number of Leaves : 3
Size of the tree : 5pred_probs <- predict(C45Fit, newdata = wp, type = "prob")[, "Potable"]
binary_outcome <- as.numeric(wp$Potability == "Potable")
# ROC curve
roc_curve <- roc(binary_outcome, pred_probs)Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.5216363 # 5 folds
set.seed(1958)
train <- createFolds(wp$Potability, k=5)
C45Fit <- train(Potability ~., method="J48", data=wp,
trControl = trainControl(
method ="cv",
index = train,
savePredictions = TRUE))
C45FitC4.5-like Trees
1750 samples
9 predictor
2 classes: 'Not Potable', 'Potable'
No pre-processing
Resampling: Cross-Validated (10 fold)
Summary of sample sizes: 350, 350, 350, 350, 350
Resampling results across tuning parameters:
C M Accuracy Kappa
0.010 1 0.6067143 0.003029794
0.010 2 0.6062857 0.002195738
0.010 3 0.6060000 0.001633667
0.255 1 0.5515714 0.030018055
0.255 2 0.5642857 0.053615393
0.255 3 0.5667143 0.043028830
0.500 1 0.5450000 0.036774387
0.500 2 0.5545714 0.051996482
0.500 3 0.5527143 0.030952302
Accuracy was used to select the optimal model using the largest value.
The final values used for the model were C = 0.01 and M = 1.C45Fit$finalModelJ48 pruned tree
------------------
Sulfate[396,440) <= 0: Not Potable (1670.0/640.0)
Sulfate[396,440) > 0
| ph[7,11) <= 0: Potable (42.0/10.0)
| ph[7,11) > 0: Not Potable (38.0/12.0)
Number of Leaves : 3
Size of the tree : 5pred_probs <- predict(C45Fit, newdata = wp, type = "prob")[, "Potable"]
binary_outcome <- as.numeric(wp$Potability == "Potable")
# ROC curve
roc_curve <- roc(binary_outcome, pred_probs)Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.5216363 # 10 folds
set.seed(1958)
train <- createFolds(wp$Potability, k=10)
C45Fit <- train(Potability ~., method="J48", data=wp,
trControl = trainControl(
method="cv", indexOut=train))
C45FitC4.5-like Trees
1750 samples
9 predictor
2 classes: 'Not Potable', 'Potable'
No pre-processing
Resampling: Cross-Validated (10 fold)
Summary of sample sizes: 1576, 1574, 1575, 1574, 1574, 1575, ...
Resampling results across tuning parameters:
C M Accuracy Kappa
0.010 1 0.6331355 0.08610946
0.010 2 0.6371355 0.10006932
0.010 3 0.6359927 0.09906518
0.255 1 0.8160390 0.59246265
0.255 2 0.7834603 0.51920580
0.255 3 0.7611579 0.47221105
0.500 1 0.8908616 0.76673013
0.500 2 0.8320196 0.63983987
0.500 3 0.8006036 0.57209792
Accuracy was used to select the optimal model using the largest value.
The final values used for the model were C = 0.5 and M = 1.C45Fit$finalModelJ48 pruned tree
------------------
Sulfate[396,440) <= 0
| Sulfate[308,352) <= 0
| | Trihalomethanes[40,50) <= 0
| | | Organic_carbon[20,24) <= 0
| | | | ph[7,11) <= 0
| | | | | Sulfate[352,396) <= 0
| | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | Turbidity[3,5) <= 0
| | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | Trihalomethanes[90,100) <= 0
| | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | Solids <= 0.397137: Not Potable (2.0)
| | | | | | | | | | | | Solids > 0.397137: Potable (5.0)
| | | | | | | | | | | Organic_carbon[16,20) > 0: Not Potable (2.0)
| | | | | | | | | | Chloramines[7,11) > 0: Not Potable (14.0/1.0)
| | | | | | | | | Trihalomethanes[90,100) > 0
| | | | | | | | | | Chloramines[7,11) <= 0: Not Potable (1.0)
| | | | | | | | | | Chloramines[7,11) > 0: Potable (3.0)
| | | | | | | | Trihalomethanes[30,40) > 0: Potable (2.0)
| | | | | | | Turbidity[3,5) > 0
| | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | Hardness[240,280) <= 0
| | | | | | | | | | Sulfate[264,308) <= 0
| | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | | | | | Organic_carbon[12,16) <= 0: Potable (3.0)
| | | | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | | | Trihalomethanes[50,60) <= 0: Not Potable (2.0)
| | | | | | | | | | | | | | Trihalomethanes[50,60) > 0: Potable (1.0)
| | | | | | | | | | | | Trihalomethanes[30,40) > 0: Not Potable (1.0)
| | | | | | | | | | | Hardness[160,200) > 0: Not Potable (2.0)
| | | | | | | | | | Sulfate[264,308) > 0
| | | | | | | | | | | Hardness[200,240) <= 0
| | | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Not Potable (1.0)
| | | | | | | | | | | | | | | | Conductivity[300,400) > 0: Potable (2.0)
| | | | | | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | | | | | Trihalomethanes[100,110) <= 0
| | | | | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Not Potable (2.0)
| | | | | | | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Potable (4.0/1.0)
| | | | | | | | | | | | | | | | | | | | Conductivity[300,400) > 0: Not Potable (1.0)
| | | | | | | | | | | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Not Potable (2.0)
| | | | | | | | | | | | | | | | | | | | Conductivity[300,400) > 0: Potable (1.0)
| | | | | | | | | | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | | | | | | | | | Organic_carbon[8,12) <= 0: Not Potable (6.0)
| | | | | | | | | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (1.0)
| | | | | | | | | | | | | | | | Trihalomethanes[100,110) > 0: Potable (1.0)
| | | | | | | | | | | | | | Conductivity[500,600) > 0: Not Potable (6.0)
| | | | | | | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | | | | | | Chloramines[7,11) <= 0: Potable (3.0)
| | | | | | | | | | | | | | Chloramines[7,11) > 0: Not Potable (3.0/1.0)
| | | | | | | | | | | | Trihalomethanes[50,60) > 0: Not Potable (11.0/1.0)
| | | | | | | | | | | Hardness[200,240) > 0
| | | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | | Chloramines[7,11) <= 0: Not Potable (5.0)
| | | | | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Not Potable (5.0)
| | | | | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | | | | Organic_carbon[8,12) <= 0: Potable (2.0)
| | | | | | | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (1.0)
| | | | | | | | | | | | | | Organic_carbon[12,16) > 0: Potable (2.0)
| | | | | | | | | | | | Trihalomethanes[60,70) > 0: Not Potable (13.0)
| | | | | | | | | Hardness[240,280) > 0
| | | | | | | | | | Conductivity[500,600) <= 0: Not Potable (6.0)
| | | | | | | | | | Conductivity[500,600) > 0: Potable (1.0)
| | | | | | | | Trihalomethanes[80,90) > 0
| | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | Solids <= 0.807853: Not Potable (19.0)
| | | | | | | | | | Solids > 0.807853: Potable (1.0)
| | | | | | | | | Conductivity[500,600) > 0: Potable (2.0)
| | | | | | Trihalomethanes[70,80) > 0
| | | | | | | Turbidity[3,5) <= 0: Not Potable (7.0)
| | | | | | | Turbidity[3,5) > 0
| | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | Hardness[240,280) <= 0
| | | | | | | | | | Sulfate[264,308) <= 0: Potable (3.0)
| | | | | | | | | | Sulfate[264,308) > 0
| | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | Solids <= 0.394234: Potable (1.0)
| | | | | | | | | | | | | | Solids > 0.394234: Not Potable (6.0)
| | | | | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | | | | Hardness[200,240) <= 0: Not Potable (1.0)
| | | | | | | | | | | | | | Hardness[200,240) > 0
| | | | | | | | | | | | | | | Solids <= 0.195778: Not Potable (1.0)
| | | | | | | | | | | | | | | Solids > 0.195778: Potable (3.0)
| | | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | | Solids <= 0.33921: Not Potable (1.0)
| | | | | | | | | | | | | | | Solids > 0.33921: Potable (3.0)
| | | | | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (2.0)
| | | | | | | | | | | | | Conductivity[300,400) > 0: Potable (2.0)
| | | | | | | | | | | Conductivity[500,600) > 0: Potable (4.0/1.0)
| | | | | | | | | Hardness[240,280) > 0: Not Potable (3.0)
| | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | Conductivity[500,600) <= 0: Potable (6.0)
| | | | | | | | | Conductivity[500,600) > 0: Not Potable (1.0)
| | | | | Sulfate[352,396) > 0
| | | | | | Hardness[240,280) <= 0
| | | | | | | Chloramines[7,11) <= 0
| | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | Turbidity[5,7) <= 0
| | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | Turbidity[3,5) <= 0: Not Potable (1.0)
| | | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Potable (1.0)
| | | | | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | | | | Solids <= 0.377252: Not Potable (2.0)
| | | | | | | | | | | | | | | | Solids > 0.377252: Potable (3.0)
| | | | | | | | | | | | | | Trihalomethanes[50,60) > 0: Not Potable (2.0)
| | | | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Potable (4.0)
| | | | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | | | Solids <= 0.421001: Not Potable (2.0)
| | | | | | | | | | | | | | | Solids > 0.421001: Potable (5.0)
| | | | | | | | | | | Conductivity[500,600) > 0
| | | | | | | | | | | | Organic_carbon[16,20) <= 0: Not Potable (4.0)
| | | | | | | | | | | | Organic_carbon[16,20) > 0: Potable (2.0)
| | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | | | Turbidity[3,5) <= 0: Not Potable (1.0)
| | | | | | | | | | | | Turbidity[3,5) > 0: Potable (17.0/3.0)
| | | | | | | | | | | Trihalomethanes[80,90) > 0: Not Potable (1.0)
| | | | | | | | | Turbidity[5,7) > 0
| | | | | | | | | | Organic_carbon[12,16) <= 0: Potable (5.0)
| | | | | | | | | | Organic_carbon[12,16) > 0: Not Potable (1.0)
| | | | | | | | Trihalomethanes[70,80) > 0
| | | | | | | | | Conductivity[600,700) <= 0
| | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | Organic_carbon[8,12) <= 0: Potable (3.0)
| | | | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (1.0)
| | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | Solids <= 0.673943: Not Potable (3.0)
| | | | | | | | | | | | | Solids > 0.673943: Potable (2.0)
| | | | | | | | | | | Organic_carbon[16,20) > 0: Potable (1.0)
| | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | Turbidity[3,5) <= 0: Not Potable (1.0)
| | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | Solids <= 0.201591: Potable (1.0)
| | | | | | | | | | | | | Solids > 0.201591: Not Potable (5.0)
| | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (1.0)
| | | | | | | | | Conductivity[600,700) > 0: Potable (1.0)
| | | | | | | Chloramines[7,11) > 0
| | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | Conductivity[400,500) <= 0: Potable (4.0)
| | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Potable (4.0/1.0)
| | | | | | | | | | | | | | Trihalomethanes[60,70) > 0: Not Potable (1.0)
| | | | | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | | | | Solids <= 0.482566: Potable (6.0)
| | | | | | | | | | | | | | Solids > 0.482566: Not Potable (1.0)
| | | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | | | Trihalomethanes[90,100) <= 0
| | | | | | | | | | | | | | | Solids <= 0.561575: Potable (8.0/2.0)
| | | | | | | | | | | | | | | Solids > 0.561575: Not Potable (2.0)
| | | | | | | | | | | | | | Trihalomethanes[90,100) > 0: Not Potable (1.0)
| | | | | | | | | | | | | Trihalomethanes[50,60) > 0: Not Potable (2.0)
| | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | | | Turbidity[3,5) <= 0: Not Potable (1.0)
| | | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | | | Hardness[200,240) <= 0: Not Potable (6.0)
| | | | | | | | | | | | | | Hardness[200,240) > 0: Potable (6.0/2.0)
| | | | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Potable (3.0)
| | | | | | | | | | | | | | Trihalomethanes[60,70) > 0: Not Potable (1.0)
| | | | | | | | | | | Trihalomethanes[80,90) > 0: Not Potable (1.0)
| | | | | | | | | Conductivity[500,600) > 0
| | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | Organic_carbon[12,16) <= 0: Not Potable (9.0/1.0)
| | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | | Turbidity[3,5) <= 0
| | | | | | | | | | | | | | Turbidity[5,7) <= 0: Not Potable (2.0)
| | | | | | | | | | | | | | Turbidity[5,7) > 0
| | | | | | | | | | | | | | | Solids <= 0.40018: Not Potable (1.0)
| | | | | | | | | | | | | | | Solids > 0.40018: Potable (3.0)
| | | | | | | | | | | | | Turbidity[3,5) > 0: Potable (4.0)
| | | | | | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (1.0)
| | | | | | | | | | Organic_carbon[16,20) > 0: Potable (1.0)
| | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | Trihalomethanes[100,110) <= 0
| | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | Turbidity[5,7) <= 0
| | | | | | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | | | | | Hardness[200,240) <= 0: Not Potable (14.0/1.0)
| | | | | | | | | | | | | Hardness[200,240) > 0
| | | | | | | | | | | | | | Trihalomethanes[90,100) <= 0: Potable (4.0/1.0)
| | | | | | | | | | | | | | Trihalomethanes[90,100) > 0: Not Potable (1.0)
| | | | | | | | | | | | Trihalomethanes[30,40) > 0: Potable (1.0)
| | | | | | | | | | | Turbidity[5,7) > 0: Not Potable (1.0)
| | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (4.0)
| | | | | | | | | Trihalomethanes[100,110) > 0: Potable (1.0)
| | | | | | Hardness[240,280) > 0
| | | | | | | Conductivity[500,600) <= 0: Potable (8.0/1.0)
| | | | | | | Conductivity[500,600) > 0: Not Potable (1.0)
| | | | ph[7,11) > 0
| | | | | Sulfate[352,396) <= 0
| | | | | | Sulfate[264,308) <= 0
| | | | | | | Solids <= 0.233755: Not Potable (2.0)
| | | | | | | Solids > 0.233755
| | | | | | | | Hardness[240,280) <= 0: Potable (18.0/1.0)
| | | | | | | | Hardness[240,280) > 0: Not Potable (1.0)
| | | | | | Sulfate[264,308) > 0
| | | | | | | Hardness[200,240) <= 0
| | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | Solids <= 0.509695: Not Potable (20.0/4.0)
| | | | | | | | | | Solids > 0.509695
| | | | | | | | | | | Hardness[240,280) <= 0: Potable (17.0/2.0)
| | | | | | | | | | | Hardness[240,280) > 0
| | | | | | | | | | | | Organic_carbon[12,16) <= 0: Potable (2.0)
| | | | | | | | | | | | Organic_carbon[12,16) > 0: Not Potable (3.0)
| | | | | | | | | Trihalomethanes[50,60) > 0: Potable (4.0)
| | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | Trihalomethanes[90,100) <= 0
| | | | | | | | | | | | Solids <= 0.741689
| | | | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | | | | Turbidity[5,7) <= 0
| | | | | | | | | | | | | | | | Organic_carbon[8,12) <= 0: Potable (2.0)
| | | | | | | | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | | | | | | | Hardness[160,200) <= 0: Potable (1.0)
| | | | | | | | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | | | | | | | Solids <= 0.445778: Potable (1.0)
| | | | | | | | | | | | | | | | | | Solids > 0.445778: Not Potable (2.0)
| | | | | | | | | | | | | | | Turbidity[5,7) > 0: Not Potable (1.0)
| | | | | | | | | | | | | | Trihalomethanes[60,70) > 0: Not Potable (2.0)
| | | | | | | | | | | | | Conductivity[500,600) > 0: Not Potable (3.0)
| | | | | | | | | | | | Solids > 0.741689: Potable (6.0)
| | | | | | | | | | | Trihalomethanes[90,100) > 0: Potable (1.0)
| | | | | | | | | | Conductivity[300,400) > 0: Potable (4.0)
| | | | | | | | | Organic_carbon[12,16) > 0: Potable (21.0/2.0)
| | | | | | | Hardness[200,240) > 0
| | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | | | Organic_carbon[8,12) <= 0: Not Potable (6.0/1.0)
| | | | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (5.0)
| | | | | | | | | | | | | Trihalomethanes[60,70) > 0: Not Potable (7.0)
| | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | Trihalomethanes[50,60) <= 0: Potable (8.0/1.0)
| | | | | | | | | | | | | Trihalomethanes[50,60) > 0: Not Potable (2.0)
| | | | | | | | | | | Trihalomethanes[70,80) > 0
| | | | | | | | | | | | Solids <= 0.819072: Not Potable (14.0)
| | | | | | | | | | | | Solids > 0.819072: Potable (1.0)
| | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | Trihalomethanes[90,100) <= 0
| | | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | | Solids <= 0.520975: Not Potable (4.0/1.0)
| | | | | | | | | | | | | | Solids > 0.520975: Potable (4.0)
| | | | | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | | | | Solids <= 0.807853: Potable (6.0/1.0)
| | | | | | | | | | | | | | Solids > 0.807853: Not Potable (1.0)
| | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | | Turbidity[3,5) <= 0: Not Potable (3.0)
| | | | | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | | | | Solids <= 0.315273: Not Potable (2.0)
| | | | | | | | | | | | | | | Solids > 0.315273: Potable (3.0)
| | | | | | | | | | | | | Conductivity[300,400) > 0: Potable (3.0)
| | | | | | | | | | | Trihalomethanes[90,100) > 0: Not Potable (2.0)
| | | | | | | | | Trihalomethanes[80,90) > 0
| | | | | | | | | | Solids <= 0.388146: Not Potable (2.0)
| | | | | | | | | | Solids > 0.388146: Potable (5.0)
| | | | | | | | Trihalomethanes[30,40) > 0
| | | | | | | | | Organic_carbon[12,16) <= 0: Potable (4.0)
| | | | | | | | | Organic_carbon[12,16) > 0: Not Potable (1.0)
| | | | | Sulfate[352,396) > 0
| | | | | | Hardness[200,240) <= 0
| | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | Turbidity[3,5) <= 0: Not Potable (22.0/2.0)
| | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | | Hardness[160,200) <= 0
| | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | Conductivity[400,500) <= 0: Potable (5.0)
| | | | | | | | | | | | | Conductivity[400,500) > 0: Not Potable (4.0/1.0)
| | | | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | | | Hardness[240,280) <= 0
| | | | | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | | | | Solids <= 0.541894: Potable (3.0)
| | | | | | | | | | | | | | | | Solids > 0.541894: Not Potable (1.0)
| | | | | | | | | | | | | | | Conductivity[300,400) > 0: Not Potable (2.0)
| | | | | | | | | | | | | | Hardness[240,280) > 0: Not Potable (5.0)
| | | | | | | | | | | | | Organic_carbon[16,20) > 0: Potable (1.0)
| | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | | Trihalomethanes[90,100) <= 0
| | | | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | | | Conductivity[500,600) <= 0: Not Potable (3.0)
| | | | | | | | | | | | | | | | Conductivity[500,600) > 0
| | | | | | | | | | | | | | | | | Organic_carbon[12,16) <= 0: Potable (1.0)
| | | | | | | | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | | | | | | | Solids <= 0.455149: Not Potable (2.0)
| | | | | | | | | | | | | | | | | | Solids > 0.455149: Potable (2.0)
| | | | | | | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | | | | | | Solids <= 0.272424: Not Potable (1.0)
| | | | | | | | | | | | | | | | Solids > 0.272424: Potable (2.0)
| | | | | | | | | | | | | | Trihalomethanes[90,100) > 0: Not Potable (3.0)
| | | | | | | | | | | | | Conductivity[400,500) > 0: Not Potable (5.0)
| | | | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | | | Trihalomethanes[90,100) <= 0
| | | | | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Not Potable (7.0/2.0)
| | | | | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | | | | | | | | | Solids <= 0.431273: Not Potable (1.0)
| | | | | | | | | | | | | | | | | | | Solids > 0.431273: Potable (1.0)
| | | | | | | | | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | | | | | | | | Solids <= 0.43104: Potable (2.0)
| | | | | | | | | | | | | | | | | | | Solids > 0.43104: Not Potable (1.0)
| | | | | | | | | | | | | | | | | Conductivity[300,400) > 0: Not Potable (2.0)
| | | | | | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (1.0)
| | | | | | | | | | | | | | Conductivity[500,600) > 0: Not Potable (2.0)
| | | | | | | | | | | | | Trihalomethanes[90,100) > 0: Potable (2.0)
| | | | | | | | | | Trihalomethanes[80,90) > 0
| | | | | | | | | | | Hardness[160,200) <= 0: Not Potable (5.0)
| | | | | | | | | | | Hardness[160,200) > 0
| | | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | | Solids <= 0.630566: Not Potable (10.0/1.0)
| | | | | | | | | | | | | Solids > 0.630566: Potable (2.0)
| | | | | | | | | | | | Conductivity[500,600) > 0: Potable (1.0)
| | | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (15.0/3.0)
| | | | | | | Trihalomethanes[30,40) > 0: Not Potable (7.0)
| | | | | | Hardness[200,240) > 0
| | | | | | | Chloramines[7,11) <= 0
| | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | Organic_carbon[8,12) <= 0: Not Potable (22.0/5.0)
| | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | Solids <= 0.586899: Potable (6.0)
| | | | | | | | | | Solids > 0.586899: Not Potable (2.0)
| | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (5.0)
| | | | | | | Chloramines[7,11) > 0
| | | | | | | | Turbidity[3,5) <= 0
| | | | | | | | | Conductivity[500,600) <= 0: Potable (8.0)
| | | | | | | | | Conductivity[500,600) > 0: Not Potable (1.0)
| | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | Trihalomethanes[100,110) <= 0
| | | | | | | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Potable (1.0)
| | | | | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | | | | | | | | Organic_carbon[16,20) <= 0: Not Potable (1.0)
| | | | | | | | | | | | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | | | | | | | | | | | Solids <= 0.818584: Potable (3.0)
| | | | | | | | | | | | | | | | | | | Solids > 0.818584: Not Potable (1.0)
| | | | | | | | | | | | | | | | | Organic_carbon[12,16) > 0: Potable (2.0)
| | | | | | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | | | | | Solids <= 0.377252: Potable (1.0)
| | | | | | | | | | | | | | | | | Solids > 0.377252: Not Potable (2.0)
| | | | | | | | | | | | | | Trihalomethanes[80,90) > 0: Not Potable (1.0)
| | | | | | | | | | | | | Trihalomethanes[100,110) > 0: Not Potable (2.0)
| | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | | | | | Solids <= 0.535701: Not Potable (2.0)
| | | | | | | | | | | | | | | | Solids > 0.535701: Potable (2.0)
| | | | | | | | | | | | | | | Trihalomethanes[50,60) > 0: Not Potable (2.0)
| | | | | | | | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (3.0)
| | | | | | | | | | | | | Trihalomethanes[80,90) > 0: Potable (1.0)
| | | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | | Trihalomethanes[90,100) <= 0: Not Potable (4.0)
| | | | | | | | | | | | Trihalomethanes[90,100) > 0: Potable (1.0)
| | | | | | | | | | Trihalomethanes[30,40) > 0
| | | | | | | | | | | Organic_carbon[12,16) <= 0: Not Potable (1.0)
| | | | | | | | | | | Organic_carbon[12,16) > 0: Potable (2.0)
| | | | | | | | | Conductivity[500,600) > 0
| | | | | | | | | | Organic_carbon[8,12) <= 0: Potable (6.0)
| | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (1.0)
| | | Organic_carbon[20,24) > 0
| | | | Hardness[240,280) <= 0
| | | | | Turbidity[5,7) <= 0
| | | | | | Sulfate[264,308) <= 0
| | | | | | | Chloramines[7,11) <= 0: Not Potable (8.0/1.0)
| | | | | | | Chloramines[7,11) > 0
| | | | | | | | Turbidity[3,5) <= 0: Potable (2.0)
| | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | Trihalomethanes[100,110) <= 0: Not Potable (6.0/1.0)
| | | | | | | | | | Trihalomethanes[100,110) > 0: Potable (1.0)
| | | | | | | | | Conductivity[400,500) > 0: Potable (1.0)
| | | | | | Sulfate[264,308) > 0
| | | | | | | Hardness[200,240) <= 0: Potable (3.0)
| | | | | | | Hardness[200,240) > 0
| | | | | | | | Trihalomethanes[70,80) <= 0: Potable (1.0)
| | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (2.0)
| | | | | Turbidity[5,7) > 0: Potable (3.0)
| | | | Hardness[240,280) > 0: Potable (3.0)
| | Trihalomethanes[40,50) > 0
| | | Organic_carbon[16,20) <= 0
| | | | ph[7,11) <= 0
| | | | | Turbidity[5,7) <= 0
| | | | | | Hardness[240,280) <= 0
| | | | | | | Conductivity[400,500) <= 0
| | | | | | | | Turbidity[3,5) <= 0: Potable (1.0)
| | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | Organic_carbon[20,24) <= 0
| | | | | | | | | | Organic_carbon[12,16) <= 0: Potable (5.0/1.0)
| | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | Solids <= 0.62018: Not Potable (2.0)
| | | | | | | | | | | | | Solids > 0.62018: Potable (2.0)
| | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | Solids <= 0.283695: Potable (1.0)
| | | | | | | | | | | | | Solids > 0.283695: Not Potable (4.0)
| | | | | | | | | | | Chloramines[7,11) > 0: Not Potable (6.0/1.0)
| | | | | | | | | Organic_carbon[20,24) > 0: Not Potable (1.0)
| | | | | | | Conductivity[400,500) > 0
| | | | | | | | Solids <= 0.394436: Potable (1.0)
| | | | | | | | Solids > 0.394436: Not Potable (5.0)
| | | | | | Hardness[240,280) > 0: Not Potable (2.0)
| | | | | Turbidity[5,7) > 0: Not Potable (3.0)
| | | | ph[7,11) > 0
| | | | | Hardness[240,280) <= 0
| | | | | | Organic_carbon[8,12) <= 0
| | | | | | | Organic_carbon[12,16) <= 0: Potable (2.0)
| | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | Hardness[200,240) <= 0: Potable (7.0/2.0)
| | | | | | | | Hardness[200,240) > 0
| | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | Turbidity[3,5) <= 0
| | | | | | | | | | | Turbidity[5,7) <= 0: Not Potable (2.0)
| | | | | | | | | | | Turbidity[5,7) > 0
| | | | | | | | | | | | Conductivity[400,500) <= 0: Potable (2.0)
| | | | | | | | | | | | Conductivity[400,500) > 0: Not Potable (1.0)
| | | | | | | | | | Turbidity[3,5) > 0: Potable (2.0)
| | | | | | | | | Chloramines[7,11) > 0: Not Potable (2.0)
| | | | | | Organic_carbon[8,12) > 0
| | | | | | | Sulfate[264,308) <= 0: Not Potable (6.0)
| | | | | | | Sulfate[264,308) > 0: Potable (1.0)
| | | | | Hardness[240,280) > 0: Potable (2.0)
| | | Organic_carbon[16,20) > 0
| | | | Sulfate[264,308) <= 0
| | | | | Sulfate[352,396) <= 0: Potable (1.0)
| | | | | Sulfate[352,396) > 0
| | | | | | Hardness[160,200) <= 0
| | | | | | | Hardness[200,240) <= 0: Potable (2.0)
| | | | | | | Hardness[200,240) > 0
| | | | | | | | Solids <= 0.544185: Not Potable (3.0)
| | | | | | | | Solids > 0.544185: Potable (1.0)
| | | | | | Hardness[160,200) > 0: Not Potable (5.0)
| | | | Sulfate[264,308) > 0: Not Potable (8.0)
| Sulfate[308,352) > 0
| | Hardness[240,280) <= 0
| | | Trihalomethanes[90,100) <= 0
| | | | Hardness[160,200) <= 0
| | | | | Hardness[200,240) <= 0
| | | | | | ph[7,11) <= 0
| | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | Trihalomethanes[40,50) <= 0: Potable (11.0/1.0)
| | | | | | | | | | Trihalomethanes[40,50) > 0
| | | | | | | | | | | Conductivity[400,500) <= 0: Not Potable (4.0)
| | | | | | | | | | | Conductivity[400,500) > 0: Potable (1.0)
| | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | Trihalomethanes[80,90) <= 0: Not Potable (4.0)
| | | | | | | | | | Trihalomethanes[80,90) > 0: Potable (1.0)
| | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | Trihalomethanes[40,50) <= 0: Not Potable (9.0/1.0)
| | | | | | | | | Trihalomethanes[40,50) > 0: Potable (1.0)
| | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | Solids <= 0.310076: Potable (1.0)
| | | | | | | | | | Solids > 0.310076: Not Potable (3.0)
| | | | | | | | | Conductivity[300,400) > 0: Potable (1.0)
| | | | | | | | Chloramines[7,11) > 0: Not Potable (6.0)
| | | | | | ph[7,11) > 0
| | | | | | | Trihalomethanes[40,50) <= 0
| | | | | | | | Turbidity[5,7) <= 0
| | | | | | | | | Trihalomethanes[80,90) <= 0: Potable (15.0/2.0)
| | | | | | | | | Trihalomethanes[80,90) > 0: Not Potable (3.0/1.0)
| | | | | | | | Turbidity[5,7) > 0: Not Potable (1.0)
| | | | | | | Trihalomethanes[40,50) > 0: Not Potable (2.0)
| | | | | Hardness[200,240) > 0
| | | | | | Chloramines[7,11) <= 0
| | | | | | | Turbidity[3,5) <= 0
| | | | | | | | Organic_carbon[16,20) <= 0: Not Potable (16.0)
| | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | ph[7,11) <= 0: Potable (3.0)
| | | | | | | | | ph[7,11) > 0: Not Potable (2.0)
| | | | | | | Turbidity[3,5) > 0
| | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | | | | | Conductivity[600,700) <= 0
| | | | | | | | | | | | | | Trihalomethanes[100,110) <= 0
| | | | | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | | | | Trihalomethanes[80,90) <= 0: Potable (6.0/2.0)
| | | | | | | | | | | | | | | | Trihalomethanes[80,90) > 0: Not Potable (2.0)
| | | | | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | | | | Trihalomethanes[80,90) <= 0: Not Potable (8.0/1.0)
| | | | | | | | | | | | | | | | Trihalomethanes[80,90) > 0: Potable (1.0)
| | | | | | | | | | | | | | Trihalomethanes[100,110) > 0: Potable (1.0)
| | | | | | | | | | | | | Conductivity[600,700) > 0: Potable (1.0)
| | | | | | | | | | | | Conductivity[500,600) > 0: Potable (4.0)
| | | | | | | | | | | Trihalomethanes[70,80) > 0
| | | | | | | | | | | | Organic_carbon[8,12) <= 0: Not Potable (14.0/3.0)
| | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (1.0)
| | | | | | | | | | Trihalomethanes[50,60) > 0
| | | | | | | | | | | Organic_carbon[12,16) <= 0: Not Potable (7.0)
| | | | | | | | | | | Organic_carbon[12,16) > 0: Potable (1.0)
| | | | | | | | | ph[7,11) > 0
| | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | Conductivity[400,500) <= 0: Not Potable (23.0/1.0)
| | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | | | | Solids <= 0.565998: Not Potable (9.0/2.0)
| | | | | | | | | | | | | | | Solids > 0.565998: Potable (2.0)
| | | | | | | | | | | | | | Trihalomethanes[70,80) > 0
| | | | | | | | | | | | | | | Solids <= 0.380268: Potable (1.0)
| | | | | | | | | | | | | | | Solids > 0.380268: Not Potable (2.0)
| | | | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (2.0)
| | | | | | | | | | | Trihalomethanes[50,60) > 0
| | | | | | | | | | | | Organic_carbon[12,16) <= 0: Potable (3.0)
| | | | | | | | | | | | Organic_carbon[12,16) > 0: Not Potable (8.0/1.0)
| | | | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | Trihalomethanes[40,50) <= 0
| | | | | | | | | | | | | | Solids <= 0.487788
| | | | | | | | | | | | | | | Solids <= 0.322012: Not Potable (1.0)
| | | | | | | | | | | | | | | Solids > 0.322012: Potable (3.0)
| | | | | | | | | | | | | | Solids > 0.487788: Not Potable (4.0)
| | | | | | | | | | | | | Trihalomethanes[40,50) > 0: Potable (1.0)
| | | | | | | | | | | | Conductivity[300,400) > 0: Not Potable (3.0)
| | | | | | | | | | | Trihalomethanes[70,80) > 0
| | | | | | | | | | | | Conductivity[500,600) <= 0: Potable (8.0/3.0)
| | | | | | | | | | | | Conductivity[500,600) > 0: Not Potable (1.0)
| | | | | | | | Trihalomethanes[30,40) > 0
| | | | | | | | | Organic_carbon[12,16) <= 0: Potable (2.0)
| | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | Solids <= 0.577692: Not Potable (5.0)
| | | | | | | | | | Solids > 0.577692: Potable (2.0)
| | | | | | Chloramines[7,11) > 0
| | | | | | | Turbidity[5,7) <= 0
| | | | | | | | Conductivity[500,600) <= 0
| | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | Trihalomethanes[40,50) <= 0
| | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | | | | | | Turbidity[3,5) <= 0: Potable (2.0)
| | | | | | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0: Potable (3.0)
| | | | | | | | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Potable (2.0)
| | | | | | | | | | | | | | | | | | Conductivity[300,400) > 0: Not Potable (3.0)
| | | | | | | | | | | | | | | | Conductivity[400,500) > 0: Not Potable (10.0/3.0)
| | | | | | | | | | | | | | Trihalomethanes[80,90) > 0: Not Potable (8.0/2.0)
| | | | | | | | | | | | | Trihalomethanes[50,60) > 0: Not Potable (7.0/1.0)
| | | | | | | | | | | | Trihalomethanes[30,40) > 0: Not Potable (2.0)
| | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (9.0/1.0)
| | | | | | | | | | Trihalomethanes[40,50) > 0: Not Potable (5.0)
| | | | | | | | | ph[7,11) > 0
| | | | | | | | | | Trihalomethanes[40,50) <= 0
| | | | | | | | | | | Trihalomethanes[30,40) <= 0
| | | | | | | | | | | | Trihalomethanes[50,60) <= 0
| | | | | | | | | | | | | Organic_carbon[20,24) <= 0
| | | | | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | | | | Organic_carbon[12,16) <= 0: Not Potable (8.0)
| | | | | | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | | | | | Trihalomethanes[70,80) <= 0
| | | | | | | | | | | | | | | | | Solids <= 0.357857: Potable (6.0/1.0)
| | | | | | | | | | | | | | | | | Solids > 0.357857
| | | | | | | | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | | | | | | | Conductivity[300,400) <= 0: Potable (1.0)
| | | | | | | | | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | | | | | | | | Solids <= 0.652077: Not Potable (3.0)
| | | | | | | | | | | | | | | | | | | | Solids > 0.652077: Potable (1.0)
| | | | | | | | | | | | | | | | | | Conductivity[400,500) > 0: Not Potable (4.0)
| | | | | | | | | | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (10.0/2.0)
| | | | | | | | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | | | | | Trihalomethanes[70,80) <= 0: Not Potable (4.0/1.0)
| | | | | | | | | | | | | | | | Trihalomethanes[70,80) > 0: Potable (2.0)
| | | | | | | | | | | | | | | Trihalomethanes[60,70) > 0: Potable (2.0)
| | | | | | | | | | | | | Organic_carbon[20,24) > 0: Potable (2.0)
| | | | | | | | | | | | Trihalomethanes[50,60) > 0
| | | | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | | | Conductivity[400,500) <= 0: Not Potable (2.0)
| | | | | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | | | | Solids <= 0.585777: Potable (2.0)
| | | | | | | | | | | | | | | | Solids > 0.585777: Not Potable (1.0)
| | | | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (6.0/1.0)
| | | | | | | | | | | | | Organic_carbon[16,20) > 0: Not Potable (3.0)
| | | | | | | | | | | Trihalomethanes[30,40) > 0
| | | | | | | | | | | | Solids <= 0.570578: Not Potable (3.0)
| | | | | | | | | | | | Solids > 0.570578: Potable (1.0)
| | | | | | | | | | Trihalomethanes[40,50) > 0
| | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | Conductivity[300,400) <= 0: Potable (3.0)
| | | | | | | | | | | | Conductivity[300,400) > 0
| | | | | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | | | | Solids <= 0.378233: Not Potable (1.0)
| | | | | | | | | | | | | | Solids > 0.378233: Potable (2.0)
| | | | | | | | | | | | | Organic_carbon[12,16) > 0: Not Potable (1.0)
| | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (1.0)
| | | | | | | | Conductivity[500,600) > 0: Not Potable (23.0/4.0)
| | | | | | | Turbidity[5,7) > 0
| | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | Trihalomethanes[70,80) <= 0: Potable (8.0/1.0)
| | | | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (3.0/1.0)
| | | | | | | | | Organic_carbon[16,20) > 0: Not Potable (1.0)
| | | | | | | | Conductivity[400,500) > 0: Not Potable (4.0)
| | | | Hardness[160,200) > 0
| | | | | Trihalomethanes[50,60) <= 0
| | | | | | Conductivity[500,600) <= 0
| | | | | | | Turbidity[3,5) <= 0: Not Potable (43.0/7.0)
| | | | | | | Turbidity[3,5) > 0
| | | | | | | | Trihalomethanes[40,50) <= 0
| | | | | | | | | Trihalomethanes[80,90) <= 0
| | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | Trihalomethanes[60,70) <= 0
| | | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | | Conductivity[400,500) <= 0: Not Potable (6.0/1.0)
| | | | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | | | Solids <= 0.506183: Not Potable (5.0)
| | | | | | | | | | | | | | | Solids > 0.506183: Potable (5.0/1.0)
| | | | | | | | | | | | | Chloramines[7,11) > 0: Not Potable (17.0/2.0)
| | | | | | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | | | | | ph[7,11) <= 0: Not Potable (9.0/2.0)
| | | | | | | | | | | | | ph[7,11) > 0
| | | | | | | | | | | | | | Chloramines[7,11) <= 0: Not Potable (6.0/1.0)
| | | | | | | | | | | | | | Chloramines[7,11) > 0: Potable (3.0)
| | | | | | | | | | | Trihalomethanes[60,70) > 0
| | | | | | | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | | Conductivity[600,700) <= 0
| | | | | | | | | | | | | | | ph[7,11) <= 0: Not Potable (10.0/3.0)
| | | | | | | | | | | | | | | ph[7,11) > 0: Potable (8.0/2.0)
| | | | | | | | | | | | | | Conductivity[600,700) > 0: Potable (1.0)
| | | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | | Solids <= 0.757621: Not Potable (13.0/3.0)
| | | | | | | | | | | | | | Solids > 0.757621: Potable (2.0)
| | | | | | | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | | | | | | Solids <= 0.54981: Not Potable (15.0)
| | | | | | | | | | | | | Solids > 0.54981
| | | | | | | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | | | | Solids <= 0.713875: Potable (2.0)
| | | | | | | | | | | | | | | | Solids > 0.713875: Not Potable (1.0)
| | | | | | | | | | | | | | | Chloramines[7,11) > 0: Not Potable (1.0)
| | | | | | | | | | | | | | ph[7,11) > 0: Potable (2.0)
| | | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | | ph[7,11) <= 0: Not Potable (11.0/1.0)
| | | | | | | | | | | ph[7,11) > 0
| | | | | | | | | | | | Solids <= 0.575729: Not Potable (11.0)
| | | | | | | | | | | | Solids > 0.575729
| | | | | | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | | | | | Solids <= 0.801307: Not Potable (2.0)
| | | | | | | | | | | | | | Solids > 0.801307: Potable (1.0)
| | | | | | | | | | | | | Conductivity[300,400) > 0: Potable (2.0)
| | | | | | | | | Trihalomethanes[80,90) > 0
| | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | | ph[7,11) <= 0: Not Potable (4.0/1.0)
| | | | | | | | | | | | | ph[7,11) > 0: Potable (4.0)
| | | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | | | | | Solids <= 0.594774: Potable (2.0)
| | | | | | | | | | | | | | Solids > 0.594774: Not Potable (1.0)
| | | | | | | | | | | | | ph[7,11) > 0: Not Potable (3.0)
| | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | | | Solids <= 0.501397: Not Potable (4.0)
| | | | | | | | | | | | | Solids > 0.501397: Potable (2.0)
| | | | | | | | | | | | Chloramines[7,11) > 0: Not Potable (7.0)
| | | | | | | | | | Organic_carbon[8,12) > 0: Potable (2.0)
| | | | | | | | Trihalomethanes[40,50) > 0
| | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | Solids <= 0.764996: Not Potable (10.0/1.0)
| | | | | | | | | | | Solids > 0.764996
| | | | | | | | | | | | Solids <= 0.883745: Potable (2.0)
| | | | | | | | | | | | Solids > 0.883745: Not Potable (1.0)
| | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | Organic_carbon[20,24) <= 0
| | | | | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | | | | Solids <= 0.377252: Potable (1.0)
| | | | | | | | | | | | | Solids > 0.377252: Not Potable (4.0)
| | | | | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | | | | | Solids <= 0.673943: Not Potable (3.0)
| | | | | | | | | | | | | | Solids > 0.673943: Potable (1.0)
| | | | | | | | | | | | | ph[7,11) > 0: Potable (4.0/1.0)
| | | | | | | | | | | Organic_carbon[20,24) > 0: Potable (1.0)
| | | | | | | | | Organic_carbon[8,12) > 0
| | | | | | | | | | Conductivity[300,400) <= 0: Not Potable (3.0/1.0)
| | | | | | | | | | Conductivity[300,400) > 0: Potable (3.0)
| | | | | | Conductivity[500,600) > 0
| | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | Solids <= 0.733408: Not Potable (17.0/2.0)
| | | | | | | | | Solids > 0.733408: Potable (1.0)
| | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | Trihalomethanes[80,90) <= 0: Not Potable (24.0/4.0)
| | | | | | | | | Trihalomethanes[80,90) > 0
| | | | | | | | | | ph[7,11) <= 0: Not Potable (2.0)
| | | | | | | | | | ph[7,11) > 0: Potable (2.0)
| | | | | | | Organic_carbon[8,12) > 0: Not Potable (9.0)
| | | | | Trihalomethanes[50,60) > 0
| | | | | | Conductivity[500,600) <= 0
| | | | | | | Organic_carbon[16,20) <= 0
| | | | | | | | Solids <= 0.638043
| | | | | | | | | Organic_carbon[20,24) <= 0
| | | | | | | | | | Chloramines[7,11) <= 0
| | | | | | | | | | | Turbidity[3,5) <= 0
| | | | | | | | | | | | ph[7,11) <= 0: Potable (2.0)
| | | | | | | | | | | | ph[7,11) > 0: Not Potable (1.0)
| | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | ph[7,11) <= 0: Not Potable (10.0/2.0)
| | | | | | | | | | | | ph[7,11) > 0
| | | | | | | | | | | | | Solids <= 0.413997: Not Potable (2.0)
| | | | | | | | | | | | | Solids > 0.413997
| | | | | | | | | | | | | | Solids <= 0.461826: Potable (2.0)
| | | | | | | | | | | | | | Solids > 0.461826: Not Potable (1.0)
| | | | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | | | Conductivity[400,500) <= 0
| | | | | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | | | | Organic_carbon[8,12) <= 0: Potable (3.0)
| | | | | | | | | | | | | Organic_carbon[8,12) > 0: Not Potable (3.0)
| | | | | | | | | | | | ph[7,11) > 0
| | | | | | | | | | | | | Solids <= 0.622257: Potable (2.0)
| | | | | | | | | | | | | Solids > 0.622257: Not Potable (1.0)
| | | | | | | | | | | Conductivity[400,500) > 0
| | | | | | | | | | | | Organic_carbon[8,12) <= 0
| | | | | | | | | | | | | Turbidity[3,5) <= 0: Not Potable (2.0)
| | | | | | | | | | | | | Turbidity[3,5) > 0
| | | | | | | | | | | | | | ph[7,11) <= 0
| | | | | | | | | | | | | | | Solids <= 0.475691: Not Potable (3.0)
| | | | | | | | | | | | | | | Solids > 0.475691: Potable (1.0)
| | | | | | | | | | | | | | ph[7,11) > 0: Potable (1.0)
| | | | | | | | | | | | Organic_carbon[8,12) > 0: Potable (2.0)
| | | | | | | | | Organic_carbon[20,24) > 0: Not Potable (2.0)
| | | | | | | | Solids > 0.638043: Not Potable (9.0)
| | | | | | | Organic_carbon[16,20) > 0
| | | | | | | | Chloramines[7,11) <= 0: Not Potable (9.0/3.0)
| | | | | | | | Chloramines[7,11) > 0
| | | | | | | | | Conductivity[300,400) <= 0
| | | | | | | | | | ph[7,11) <= 0: Potable (2.0)
| | | | | | | | | | ph[7,11) > 0: Not Potable (2.0)
| | | | | | | | | Conductivity[300,400) > 0: Potable (3.0)
| | | | | | Conductivity[500,600) > 0
| | | | | | | Turbidity[3,5) <= 0: Not Potable (2.0)
| | | | | | | Turbidity[3,5) > 0
| | | | | | | | Organic_carbon[20,24) <= 0
| | | | | | | | | Organic_carbon[12,16) <= 0
| | | | | | | | | | ph[7,11) <= 0: Not Potable (2.0)
| | | | | | | | | | ph[7,11) > 0: Potable (3.0/1.0)
| | | | | | | | | Organic_carbon[12,16) > 0
| | | | | | | | | | Solids <= 0.426479: Not Potable (1.0)
| | | | | | | | | | Solids > 0.426479: Potable (3.0)
| | | | | | | | Organic_carbon[20,24) > 0: Potable (1.0)
| | | Trihalomethanes[90,100) > 0
| | | | Conductivity[300,400) <= 0
| | | | | Solids <= 0.707437
| | | | | | Organic_carbon[16,20) <= 0
| | | | | | | Conductivity[400,500) <= 0
| | | | | | | | Solids <= 0.300286: Not Potable (1.0)
| | | | | | | | Solids > 0.300286: Potable (3.0)
| | | | | | | Conductivity[400,500) > 0
| | | | | | | | Solids <= 0.269225: Potable (2.0)
| | | | | | | | Solids > 0.269225
| | | | | | | | | Solids <= 0.593855: Not Potable (4.0)
| | | | | | | | | Solids > 0.593855: Potable (1.0)
| | | | | | Organic_carbon[16,20) > 0: Potable (6.0/1.0)
| | | | | Solids > 0.707437: Not Potable (4.0)
| | | | Conductivity[300,400) > 0: Not Potable (10.0/2.0)
| | Hardness[240,280) > 0
| | | ph[7,11) <= 0
| | | | Trihalomethanes[30,40) <= 0
| | | | | Trihalomethanes[60,70) <= 0: Potable (9.0/1.0)
| | | | | Trihalomethanes[60,70) > 0: Not Potable (6.0/2.0)
| | | | Trihalomethanes[30,40) > 0: Not Potable (1.0)
| | | ph[7,11) > 0
| | | | Trihalomethanes[60,70) <= 0
| | | | | Turbidity[5,7) <= 0
| | | | | | Chloramines[7,11) <= 0
| | | | | | | Solids <= 0.48065: Not Potable (8.0)
| | | | | | | Solids > 0.48065
| | | | | | | | Trihalomethanes[70,80) <= 0: Potable (3.0)
| | | | | | | | Trihalomethanes[70,80) > 0: Not Potable (1.0)
| | | | | | Chloramines[7,11) > 0
| | | | | | | Conductivity[300,400) <= 0
| | | | | | | | Trihalomethanes[40,50) <= 0: Potable (4.0)
| | | | | | | | Trihalomethanes[40,50) > 0: Not Potable (1.0)
| | | | | | | Conductivity[300,400) > 0: Not Potable (1.0)
| | | | | Turbidity[5,7) > 0: Not Potable (2.0)
| | | | Trihalomethanes[60,70) > 0: Not Potable (2.0)
Sulfate[396,440) > 0
| Trihalomethanes[90,100) <= 0
| | ph[7,11) <= 0
| | | Chloramines[7,11) <= 0
| | | | Trihalomethanes[80,90) <= 0
| | | | | Trihalomethanes[50,60) <= 0
| | | | | | Turbidity[3,5) <= 0: Not Potable (1.0)
| | | | | | Turbidity[3,5) > 0: Potable (11.0/1.0)
| | | | | Trihalomethanes[50,60) > 0: Not Potable (2.0)
| | | | Trihalomethanes[80,90) > 0: Not Potable (3.0)
| | | Chloramines[7,11) > 0: Potable (24.0/2.0)
| | ph[7,11) > 0
| | | Turbidity[5,7) <= 0
| | | | Trihalomethanes[50,60) <= 0
| | | | | Trihalomethanes[40,50) <= 0
| | | | | | Hardness[200,240) <= 0: Not Potable (14.0/1.0)
| | | | | | Hardness[200,240) > 0
| | | | | | | Chloramines[7,11) <= 0: Not Potable (6.0/1.0)
| | | | | | | Chloramines[7,11) > 0: Potable (4.0)
| | | | | Trihalomethanes[40,50) > 0
| | | | | | Hardness[160,200) <= 0: Not Potable (1.0)
| | | | | | Hardness[160,200) > 0: Potable (2.0)
| | | | Trihalomethanes[50,60) > 0
| | | | | Conductivity[400,500) <= 0: Potable (3.0)
| | | | | Conductivity[400,500) > 0
| | | | | | Turbidity[3,5) <= 0: Potable (1.0)
| | | | | | Turbidity[3,5) > 0: Not Potable (2.0)
| | | Turbidity[5,7) > 0: Not Potable (2.0)
| Trihalomethanes[90,100) > 0: Not Potable (4.0)
Number of Leaves : 437
Size of the tree : 873pred_probs <- predict(C45Fit, newdata = wp, type = "prob")[, "Potable"]
binary_outcome <- as.numeric(wp$Potability == "Potable")
# ROC curve
roc_curve <- roc(binary_outcome, pred_probs)Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.9692406 Gini index (CART) Splitting the data set into two subsets: Training(70%) and Testing(30%):
set.seed(1958)
train = sample(2, nrow(wp), replace=TRUE, prob=c(0.7, 0.3))
wp.train=wp[train == 1,]
wp.test=wp[train == 2,]
fit.tree = rpart(Potability ~ ., data=wp, method = "class", cp=0.008)
fit.treen= 1750
node), split, n, loss, yval, (yprob)
* denotes terminal node
1) root 1750 684 Not Potable (0.6091429 0.3908571)
2) Sulfate=[308,352) 806 263 Not Potable (0.6736973 0.3263027) *
3) Sulfate=[220,264),[264,308),[352,396),[396,440) 944 421 Not Potable (0.5540254 0.4459746)
6) Sulfate=[264,308),[352,396) 819 349 Not Potable (0.5738706 0.4261294)
12) Solids< 0.7847186 758 312 Not Potable (0.5883905 0.4116095) *
13) Solids>=0.7847186 61 24 Potable (0.3934426 0.6065574) *
7) Sulfate=[220,264),[396,440) 125 53 Potable (0.4240000 0.5760000) *rpart.plot(fit.tree)
fit.tree$variable.importance Sulfate Solids Trihalomethanes
17.32500374 4.33758572 0.04635208 pred.tree = predict(fit.tree, wp.test, type = "class")
re <- table(pred.tree, wp.test$Potability)
co_re <- confusionMatrix(re)
print(co_re)Confusion Matrix and Statistics
pred.tree Not Potable Potable
Not Potable 285 185
Potable 26 31
Accuracy : 0.5996
95% CI : (0.5564, 0.6417)
No Information Rate : 0.5901
P-Value [Acc > NIR] : 0.3459
Kappa : 0.0675
Mcnemar's Test P-Value : <2e-16
Sensitivity : 0.9164
Specificity : 0.1435
Pos Pred Value : 0.6064
Neg Pred Value : 0.5439
Prevalence : 0.5901
Detection Rate : 0.5408
Detection Prevalence : 0.8918
Balanced Accuracy : 0.5300
'Positive' Class : Not Potable
as.matrix(co_re, what = "classes") [,1]
Sensitivity 0.9163987
Specificity 0.1435185
Pos Pred Value 0.6063830
Neg Pred Value 0.5438596
Precision 0.6063830
Recall 0.9163987
F1 0.7298335
Prevalence 0.5901328
Detection Rate 0.5407970
Detection Prevalence 0.8918406
Balanced Accuracy 0.5299586acc <- co_re$overall["Accuracy"]
acc*100Accuracy
59.96205 plotcp(fit.tree)
printcp(fit.tree)
Classification tree:
rpart(formula = Potability ~ ., data = wp, method = "class",
cp = 0.008)
Variables actually used in tree construction:
[1] Solids Sulfate
Root node error: 684/1750 = 0.39086
n= 1750
CP nsplit rel error xerror xstd
1 0.013889 0 1.00000 1.00000 0.029842
2 0.008000 3 0.95322 0.97368 0.029695# Explicitly request the lowest cp value
fit.tree$cptable[which.min(fit.tree$cptable[,"xerror"]),"CP"][1] 0.008bestcp <-fit.tree$cptable[which.min(fit.tree$cptable[,"xerror"]),"CP"]
pruned.tree <- prune(fit.tree, cp = bestcp)
rpart.plot(pruned.tree)
pred.prune = predict(pruned.tree, wp.test, type="class")
re <- table(pred.prune, wp.test$Potability)
co_re <- confusionMatrix(re)
print(co_re)Confusion Matrix and Statistics
pred.prune Not Potable Potable
Not Potable 285 185
Potable 26 31
Accuracy : 0.5996
95% CI : (0.5564, 0.6417)
No Information Rate : 0.5901
P-Value [Acc > NIR] : 0.3459
Kappa : 0.0675
Mcnemar's Test P-Value : <2e-16
Sensitivity : 0.9164
Specificity : 0.1435
Pos Pred Value : 0.6064
Neg Pred Value : 0.5439
Prevalence : 0.5901
Detection Rate : 0.5408
Detection Prevalence : 0.8918
Balanced Accuracy : 0.5300
'Positive' Class : Not Potable
as.matrix(co_re, what = "classes") [,1]
Sensitivity 0.9163987
Specificity 0.1435185
Pos Pred Value 0.6063830
Neg Pred Value 0.5438596
Precision 0.6063830
Recall 0.9163987
F1 0.7298335
Prevalence 0.5901328
Detection Rate 0.5407970
Detection Prevalence 0.8918406
Balanced Accuracy 0.5299586acc <- co_re$overall["Accuracy"]
acc*100Accuracy
59.96205 pred.tree_raw <- predict(fit.tree, wp.test)
# Convert to probabilities
pred.tree_probs <- exp(pred.tree_raw) / (1 + exp(pred.tree_raw))
# Extract probabilities for the "Potable" class
roc_curve <- roc(ifelse(wp.test$Potability == "Potable", 1, 0), pred.tree_probs[, "Potable"])Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.5769769 Splitting the data set into two subsets: Training(80%) and Testing(20%):
set.seed(1958)
train = sample(2, nrow(wp), replace=TRUE, prob=c(0.8, 0.2))
wp.train=wp[train == 1,]
wp.test=wp[train == 2,]
fit.tree = rpart(Potability ~ ., data=wp.train, method = "class", cp=0.008)
fit.treen= 1393
node), split, n, loss, yval, (yprob)
* denotes terminal node
1) root 1393 527 Not Potable (0.6216798 0.3783202)
2) Sulfate=[308,352) 651 205 Not Potable (0.6850998 0.3149002) *
3) Sulfate=[220,264),[264,308),[352,396),[396,440) 742 322 Not Potable (0.5660377 0.4339623)
6) Solids< 0.6416071 598 240 Not Potable (0.5986622 0.4013378)
12) Sulfate=[264,308),[352,396) 519 197 Not Potable (0.6204239 0.3795761) *
13) Sulfate=[220,264),[396,440) 79 36 Potable (0.4556962 0.5443038)
26) Trihalomethanes=[20,30),[30,40),[80,90),[90,100) 18 6 Not Potable (0.6666667 0.3333333) *
27) Trihalomethanes=[40,50),[50,60),[60,70),[70,80),[100,110) 61 24 Potable (0.3934426 0.6065574)
54) Solids< 0.2515644 11 3 Not Potable (0.7272727 0.2727273) *
55) Solids>=0.2515644 50 16 Potable (0.3200000 0.6800000) *
7) Solids>=0.6416071 144 62 Potable (0.4305556 0.5694444)
14) Sulfate=[352,396),[396,440) 62 24 Not Potable (0.6129032 0.3870968)
28) Trihalomethanes=[30,40),[40,50),[60,70),[70,80) 45 13 Not Potable (0.7111111 0.2888889) *
29) Trihalomethanes=[50,60),[80,90),[100,110) 17 6 Potable (0.3529412 0.6470588) *
15) Sulfate=[220,264),[264,308) 82 24 Potable (0.2926829 0.7073171)
30) ph=[3,7) 32 16 Not Potable (0.5000000 0.5000000)
60) Chloramines=[7,11) 15 3 Not Potable (0.8000000 0.2000000) *
61) Chloramines=[3,7) 17 4 Potable (0.2352941 0.7647059) *
31) ph=[7,11) 50 8 Potable (0.1600000 0.8400000) *rpart.plot(fit.tree)
fit.tree$variable.importance Sulfate Solids Trihalomethanes Chloramines ph Hardness Organic_carbon
21.4704559 11.1997162 8.3888087 5.0823529 4.5112195 0.9695811 0.9263146
Conductivity
0.5397097 pred.tree = predict(fit.tree, wp.test, type = "class")
re <- table(pred.tree, wp.test$Potability)
co_re <- confusionMatrix(re)
print(co_re)Confusion Matrix and Statistics
pred.tree Not Potable Potable
Not Potable 184 138
Potable 16 19
Accuracy : 0.5686
95% CI : (0.5155, 0.6206)
No Information Rate : 0.5602
P-Value [Acc > NIR] : 0.3957
Kappa : 0.0448
Mcnemar's Test P-Value : <2e-16
Sensitivity : 0.9200
Specificity : 0.1210
Pos Pred Value : 0.5714
Neg Pred Value : 0.5429
Prevalence : 0.5602
Detection Rate : 0.5154
Detection Prevalence : 0.9020
Balanced Accuracy : 0.5205
'Positive' Class : Not Potable
as.matrix(co_re, what = "classes") [,1]
Sensitivity 0.9200000
Specificity 0.1210191
Pos Pred Value 0.5714286
Neg Pred Value 0.5428571
Precision 0.5714286
Recall 0.9200000
F1 0.7049808
Prevalence 0.5602241
Detection Rate 0.5154062
Detection Prevalence 0.9019608
Balanced Accuracy 0.5205096acc <- co_re$overall["Accuracy"]
acc*100Accuracy
56.86275 plotcp(fit.tree)
printcp(fit.tree)
Classification tree:
rpart(formula = Potability ~ ., data = wp.train, method = "class",
cp = 0.008)
Variables actually used in tree construction:
[1] Chloramines ph Solids Sulfate Trihalomethanes
Root node error: 527/1393 = 0.37832
n= 1393
CP nsplit rel error xerror xstd
1 0.0189753 0 1.00000 1.00000 0.034346
2 0.0132827 3 0.93548 0.97913 0.034201
3 0.0113852 4 0.92220 0.98102 0.034215
4 0.0094877 5 0.91082 0.99810 0.034333
5 0.0085389 7 0.89184 0.99051 0.034281
6 0.0080000 9 0.87476 0.98102 0.034215# Explicitly request the lowest cp value
fit.tree$cptable[which.min(fit.tree$cptable[,"xerror"]),"CP"][1] 0.01328273bestcp <-fit.tree$cptable[which.min(fit.tree$cptable[,"xerror"]),"CP"]
pruned.tree <- prune(fit.tree, cp = bestcp)
rpart.plot(pruned.tree)
pred.prune = predict(pruned.tree, wp.test, type="class")
re <- table(pred.prune, wp.test$Potability)
co_re <- confusionMatrix(re)
print(co_re)Confusion Matrix and Statistics
pred.prune Not Potable Potable
Not Potable 190 141
Potable 10 16
Accuracy : 0.577
95% CI : (0.5239, 0.6289)
No Information Rate : 0.5602
P-Value [Acc > NIR] : 0.2793
Kappa : 0.057
Mcnemar's Test P-Value : <2e-16
Sensitivity : 0.9500
Specificity : 0.1019
Pos Pred Value : 0.5740
Neg Pred Value : 0.6154
Prevalence : 0.5602
Detection Rate : 0.5322
Detection Prevalence : 0.9272
Balanced Accuracy : 0.5260
'Positive' Class : Not Potable
as.matrix(co_re, what = "classes") [,1]
Sensitivity 0.9500000
Specificity 0.1019108
Pos Pred Value 0.5740181
Neg Pred Value 0.6153846
Precision 0.5740181
Recall 0.9500000
F1 0.7156309
Prevalence 0.5602241
Detection Rate 0.5322129
Detection Prevalence 0.9271709
Balanced Accuracy 0.5259554acc <- co_re$overall["Accuracy"]
acc*100Accuracy
57.70308 pred.tree_raw <- predict(fit.tree, wp.test)
pred.tree_probs <- exp(pred.tree_raw) / (1 + exp(pred.tree_raw))
roc_curve <- roc(ifelse(wp.test$Potability == "Potable", 1, 0), pred.tree_probs[, "Potable"])Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.5796656 Splitting the data set into two subsets: Training(90%) and Testing(10%):
set.seed(1958)
train = sample(2, nrow(wp), replace=TRUE, prob=c(0.9, 0.1))
wp.train=wp[train == 1,]
wp.test=wp[train == 2,]
fit.tree = rpart(Potability ~ ., data=wp.train, method = "class", cp=0.008)
fit.treen= 1573
node), split, n, loss, yval, (yprob)
* denotes terminal node
1) root 1573 611 Not Potable (0.6115702 0.3884298)
2) Sulfate=[308,352) 733 236 Not Potable (0.6780355 0.3219645) *
3) Sulfate=[220,264),[264,308),[352,396),[396,440) 840 375 Not Potable (0.5535714 0.4464286)
6) Solids< 0.6665636 704 294 Not Potable (0.5823864 0.4176136)
12) Sulfate=[264,308),[352,396) 618 245 Not Potable (0.6035599 0.3964401) *
13) Sulfate=[220,264),[396,440) 86 37 Potable (0.4302326 0.5697674)
26) Trihalomethanes=[20,30),[30,40),[80,90),[90,100) 18 6 Not Potable (0.6666667 0.3333333) *
27) Trihalomethanes=[40,50),[50,60),[60,70),[70,80),[100,110) 68 25 Potable (0.3676471 0.6323529) *
7) Solids>=0.6665636 136 55 Potable (0.4044118 0.5955882)
14) Sulfate=[352,396),[396,440) 54 20 Not Potable (0.6296296 0.3703704) *
15) Sulfate=[220,264),[264,308) 82 21 Potable (0.2560976 0.7439024) *rpart.plot(fit.tree)
fit.tree$variable.importance Sulfate Solids Trihalomethanes Hardness Organic_carbon
25.74920220 7.43857110 3.83872439 0.06618024 0.06618024 pred.tree = predict(fit.tree, wp.test, type = "class")
re <- table(pred.tree, wp.test$Potability)
co_re <- confusionMatrix(re)
print(co_re)Confusion Matrix and Statistics
pred.tree Not Potable Potable
Not Potable 92 65
Potable 12 8
Accuracy : 0.565
95% CI : (0.4885, 0.6392)
No Information Rate : 0.5876
P-Value [Acc > NIR] : 0.7547
Kappa : -0.0065
Mcnemar's Test P-Value : 3.105e-09
Sensitivity : 0.8846
Specificity : 0.1096
Pos Pred Value : 0.5860
Neg Pred Value : 0.4000
Prevalence : 0.5876
Detection Rate : 0.5198
Detection Prevalence : 0.8870
Balanced Accuracy : 0.4971
'Positive' Class : Not Potable
as.matrix(co_re, what = "classes") [,1]
Sensitivity 0.8846154
Specificity 0.1095890
Pos Pred Value 0.5859873
Neg Pred Value 0.4000000
Precision 0.5859873
Recall 0.8846154
F1 0.7049808
Prevalence 0.5875706
Detection Rate 0.5197740
Detection Prevalence 0.8870056
Balanced Accuracy 0.4971022acc <- co_re$overall["Accuracy"]
acc*100Accuracy
56.49718 plotcp(fit.tree)
printcp(fit.tree)
Classification tree:
rpart(formula = Potability ~ ., data = wp.train, method = "class",
cp = 0.008)
Variables actually used in tree construction:
[1] Solids Sulfate Trihalomethanes
Root node error: 611/1573 = 0.38843
n= 1573
CP nsplit rel error xerror xstd
1 0.021277 0 1.00000 1.00000 0.031638
2 0.019640 3 0.93453 1.04092 0.031856
3 0.009820 4 0.91489 1.00164 0.031647
4 0.008000 5 0.90507 0.99345 0.031599# Explicitly request the lowest cp value
fit.tree$cptable[which.min(fit.tree$cptable[,"xerror"]),"CP"][1] 0.008bestcp <-fit.tree$cptable[which.min(fit.tree$cptable[,"xerror"]),"CP"]
pruned.tree <- prune(fit.tree, cp = bestcp)
rpart.plot(pruned.tree)
pred.prune = predict(pruned.tree, wp.test, type="class")
re <- table(pred.prune, wp.test$Potability)
co_re <- confusionMatrix(re)
print(co_re)Confusion Matrix and Statistics
pred.prune Not Potable Potable
Not Potable 92 65
Potable 12 8
Accuracy : 0.565
95% CI : (0.4885, 0.6392)
No Information Rate : 0.5876
P-Value [Acc > NIR] : 0.7547
Kappa : -0.0065
Mcnemar's Test P-Value : 3.105e-09
Sensitivity : 0.8846
Specificity : 0.1096
Pos Pred Value : 0.5860
Neg Pred Value : 0.4000
Prevalence : 0.5876
Detection Rate : 0.5198
Detection Prevalence : 0.8870
Balanced Accuracy : 0.4971
'Positive' Class : Not Potable
as.matrix(co_re, what = "classes") [,1]
Sensitivity 0.8846154
Specificity 0.1095890
Pos Pred Value 0.5859873
Neg Pred Value 0.4000000
Precision 0.5859873
Recall 0.8846154
F1 0.7049808
Prevalence 0.5875706
Detection Rate 0.5197740
Detection Prevalence 0.8870056
Balanced Accuracy 0.4971022acc <- co_re$overall["Accuracy"]
acc*100Accuracy
56.49718 pred.tree_raw <- predict(fit.tree, wp.test)
pred.tree_probs <- exp(pred.tree_raw) / (1 + exp(pred.tree_raw))
roc_curve <- roc(ifelse(wp.test$Potability == "Potable", 1, 0), pred.tree_probs[, "Potable"])Setting levels: control = 0, case = 1
Setting direction: controls < casesplot(roc_curve, main = "ROC Curve", col = "blue", lwd = 2)
abline(a = 0, b = 1, col = "gray", lty = 2)
# Print AUC
cat("AUC:", auc(roc_curve), "\n")AUC: 0.551304 LS0tCnRpdGxlOiAiV2F0ZXIgUXVhbGl0eSBhbmQgUG90YWJpbGl0eSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLSAKCgpXZSBhcmUgY29sbGVjdGluZyBhIGRhdGFzZXQgb24gd2F0ZXIgcXVhbGl0eSB0byB0cmFpbiBhIG1hY2hpbmUgbGVhcm5pbmcgbW9kZWwKZm9yIGJpbmFyeSBjbGFzc2lmaWNhdGlvbjogZGV0ZXJtaW5pbmcgd2hldGhlciB3YXRlciBpcyBzYWZlIGZvciBjb25zdW1wdGlvbiAoMSkKb3Igbm90ICgwKS4gVGhpcyBtb2RlbCB3aWxsIGhlbHAgd2l0aCB3YXRlciB0cmVhdG1lbnQgZGVjaXNpb25zIGFuZCBlbnN1cmUKY29tcGxpYW5jZSB3aXRoIHF1YWxpdHkgc3RhbmRhcmRzLgpXZSBhcHBsaWVkIGRpZmZlcmVudCBzdW1tYXJpemF0aW9uIGFuZCBwbG90dGluZyBtZXRob2RzIHRvIGhlbHAgdXMgdG8gdW5kZXJzdGFuZApvdXIgZGF0YXNldCwgc3VjaCBhcyBzY2F0dGVyLCBoaXN0b2dyYW0gYW5kIGJhciBwbG90LiBUaGVuLCB3ZSBhcHBseWVkCnByZXByb2Nlc3MgaW4gb3VyIGRhdGEgdXNpbmcgZGF0YSBjbGVhbmluZywgZGF0YSB0cmFuc2Zvcm1hdGlvbiAKYW5kIGZlYXR1cmUgc2VsZWN0aW9uLgoKYGBge3J9CiNsaWJyYXJ5OgojaW5zdGFsbC5wYWNrYWdlcygiY2FyZXQiKQojaW5zdGFsbC5wYWNrYWdlcygiZ2xtbmV0IikKI2luc3RhbGwucGFja2FnZXMoIkJvcnV0YSIpCiNpbnN0YWxsLnBhY2thZ2VzKCJtbGJlbmNoIikKI2luc3RhbGwucGFja2FnZXMoInJhbmRvbUZvcmVzdCIpCmxpYnJhcnkob3V0bGllcnMpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkobWxiZW5jaCkKbGlicmFyeShjYXJldCkKbGlicmFyeShnbG1uZXQpCmxpYnJhcnkoQm9ydXRhKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocmFuZG9tRm9yZXN0KQpsaWJyYXJ5KHBST0MpCmxpYnJhcnkoZTEwNzEpCmxpYnJhcnkoY2FyZXQpCmxpYnJhcnkocGFydHkpCmxpYnJhcnkocGFydHlraXQpCmxpYnJhcnkoUldla2EpCmxpYnJhcnkoQzUwKQpsaWJyYXJ5KHByaW50cikKbGlicmFyeShycGFydCkKbGlicmFyeShycGFydC5wbG90KQoKZ2V0d2QoKQojc2V0d2QoIi9Vc2Vycy9tYWhheWllL0Rlc2t0b3AvMzI2cCIpCiNnZXR3ZCgpCgp3YXRlcl9wb3RhYmlsaXR5ID0gcmVhZC5jc3YoJ0RhdGFzZXQvd2F0ZXJfcG90YWJpbGl0eS5jc3YnKQoKVmlldyh3YXRlcl9wb3RhYmlsaXR5KQoKc3RyKHdhdGVyX3BvdGFiaWxpdHkpCnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSkKYGBgCkNoZWNraW5nIGZvciBtaXNzaW5nIHZhbHVlczoKYGBge3J9CmRpbSh3YXRlcl9wb3RhYmlsaXR5KQpzdW0oaXMubmEod2F0ZXJfcG90YWJpbGl0eSkpCmBgYApSZW1vdmUgcm93cyB3aXRoIG1pc3NpbmcgdmFsdWVzCmBgYHtyfQpjb2xTdW1zKGlzLm5hKHdhdGVyX3BvdGFiaWxpdHkpKQp3YXRlcl9wb3RhYmlsaXR5ID0gbmEub21pdCh3YXRlcl9wb3RhYmlsaXR5KQoKY29sU3Vtcyhpcy5uYSh3YXRlcl9wb3RhYmlsaXR5KSkKVmlldyh3YXRlcl9wb3RhYmlsaXR5KQpgYGAKRGVzY3JpcHRpb246ClRoZSBhYnNlbmNlIG9mIGRhdGEgaW4gY2VydGFpbiB2YXJpYWJsZXMgb3IgY29sdW1ucyBpbiBhIGRhdGFzZXQgaXMgcmVmZXJyZWQgdG8gYXMgbWlzc2luZyBvciBudWxsIHZhbHVlcyBkdWUgdG8gdmFyaW91cyByZWFzb25zLiAgSXQgY2FuIGhhdmUgYSBuZWdhdGl2ZSBpbXBhY3Qgb24gdGhlIGRhdGFzZXQncyBlZmZpY2llbmN5IGFuZCB0aGUgaW5mb3JtYXRpb24gdGhhdCBjYW4gYmUgdGFrZW4gZnJvbSBpdCBsYXRlciwgc28gd2UgY2hlY2tlZCB0byBzZWUgd2hldGhlciBvdXIgZGF0YSBoYWQgbWlzc2luZyBvciBudWxsIHZhbHVlcyBhbmQgZWxpbWluYXRlZCB0aGVzZSByb3dzIHRvIHByb2R1Y2UgYSBtb3JlIGVmZmljaWVudCBkYXRhc2V0LgoKClN0YW5kYXJkIGRldmlhdGlvbjoKYGBge3J9CnNkKHdhdGVyX3BvdGFiaWxpdHkkVHVyYmlkaXR5KQpzZCh3YXRlcl9wb3RhYmlsaXR5JFNvbGlkcykKc2Qod2F0ZXJfcG90YWJpbGl0eSRDb25kdWN0aXZpdHkpCnNkKHdhdGVyX3BvdGFiaWxpdHkkT3JnYW5pY19jYXJib24pCnNkKHdhdGVyX3BvdGFiaWxpdHkkcGgpCmBgYAoKTWVhbjoKYGBge3J9Cm1lYW4od2F0ZXJfcG90YWJpbGl0eSRUdXJiaWRpdHkpCm1lYW4od2F0ZXJfcG90YWJpbGl0eSRTb2xpZHMpIAptZWFuKHdhdGVyX3BvdGFiaWxpdHkkQ29uZHVjdGl2aXR5KSAKbWVhbih3YXRlcl9wb3RhYmlsaXR5JE9yZ2FuaWNfY2FyYm9uKSAKbWVhbih3YXRlcl9wb3RhYmlsaXR5JHBoKSAKYGBgCgpNZWRpYW4KYGBge3J9Cm1lZGlhbih3YXRlcl9wb3RhYmlsaXR5JFR1cmJpZGl0eSkKbWVkaWFuKHdhdGVyX3BvdGFiaWxpdHkkU29saWRzKQptZWRpYW4od2F0ZXJfcG90YWJpbGl0eSRDb25kdWN0aXZpdHkpCm1lZGlhbih3YXRlcl9wb3RhYmlsaXR5JE9yZ2FuaWNfY2FyYm9uKQptZWRpYW4od2F0ZXJfcG90YWJpbGl0eSRwaCkKYGBgCgpWYXJpYW5jZQpgYGB7cn0KdmFyKHdhdGVyX3BvdGFiaWxpdHkkVHVyYmlkaXR5KQp2YXIod2F0ZXJfcG90YWJpbGl0eSRTb2xpZHMpCnZhcih3YXRlcl9wb3RhYmlsaXR5JENvbmR1Y3Rpdml0eSkKdmFyKHdhdGVyX3BvdGFiaWxpdHkkT3JnYW5pY19jYXJib24pCnZhcih3YXRlcl9wb3RhYmlsaXR5JHBoKQpgYGAKClN0YXRpc3RpY2FsIE1lYXN1cmVzOgpgYGB7cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JENvbmR1Y3Rpdml0eSkKc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JE9yZ2FuaWNfY2FyYm9uKQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkSGFyZG5lc3MpCnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRTb2xpZHMpCnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRDaGxvcmFtaW5lcykKc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JFBvdGFiaWxpdHkpCnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRTdWxmYXRlKQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkVHJpaGFsb21ldGhhbmVzKQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkVHVyYmlkaXR5KQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkcGgpCmBgYAoKRGVzY3Jpb3Rpb246CldpdGggdXNpbmcgbWluaW11bSwgbWF4aW11bSwgbWVhbiwgbWVkaWFuIGxhd3MgaXQgaGVscHMgdG8gcHJvdmlkZSBhbiBvdmVydmlldyBvZiB0aGUgZGF0YSdzIGtleSBjaGFyYWN0ZXJpc3RpY3MKCkRhdGEgVHJhbnNmb3JtYXRpb246CmBgYHtyfQp3YXRlcl9wb3RhYmlsaXR5JFBvdGFiaWxpdHlbd2F0ZXJfcG90YWJpbGl0eSRQb3RhYmlsaXR5ID09ICcwJ10gPC0gJ05vdCBQb3RhYmxlJwp3YXRlcl9wb3RhYmlsaXR5JFBvdGFiaWxpdHlbd2F0ZXJfcG90YWJpbGl0eSRQb3RhYmlsaXR5ID09ICcxJ10gPC0gJ1BvdGFibGUnCgp3YXRlcl9wb3RhYmlsaXR5JFBvdGFiaWxpdHkgPC0gYXMuZmFjdG9yKHdhdGVyX3BvdGFiaWxpdHkkUG90YWJpbGl0eSkKdGFibGUod2F0ZXJfcG90YWJpbGl0eSRQb3RhYmlsaXR5KQpgYGAKYGBge3J9CnByaW50KHdhdGVyX3BvdGFiaWxpdHkpCmBgYApEZXNjcmlwdGlvbjoKVGhpcyBzdGVwIGludm9sdmVkIHRyYW5zZm9ybWluZyB0aGUgY2xhc3MgbGFiZWwsIFBvdGFiaWxpdHksIGludG8gY2F0ZWdvcmljYWwgZGF0YS4gV2UgY2hhbmdlZCB0aGUgbnVtZXJpYyBkYXRhIHRvICdOb3QgUG90YWJsZScgYW5kICdQb3RhYmxlJyB0byBpbmRpY2F0ZSB3aGV0aGVyIHRoZSB3YXRlciBpcyBzYWZlIGZvciBodW1hbiBjb25zdW1wdGlvbiwgd2hlcmUgMSByZXByZXNlbnRzICdQb3RhYmxlJywgYW5kIDAgcmVwcmVzZW50cyAnTm90IFBvdGFibGUnLgoKCk91dGxpZXJzCmJlZm9yZSByZW1vdmluZyBvdXRsaWVyOgpgYGB7cn0KZGltKHdhdGVyX3BvdGFiaWxpdHkpCmBgYApgYGB7cn0KaGVhZCh3YXRlcl9wb3RhYmlsaXR5KQpgYGAKCgpyZW1vdmluZyBvdXRsaWVyczoKCi0gcGgKYGBge3J9CnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRwaCkKcXVhcnRpbGVzIDwtIHF1YW50aWxlKHdhdGVyX3BvdGFiaWxpdHkkcGgsIHByb2JzID0gYyguMjUsIC43NSksIG5hLnJtID0gRkFMU0UpCnF1YXJ0aWxlcwppcXIgPC0gSVFSKHdhdGVyX3BvdGFiaWxpdHkkcGgpCmlxcgpsb3dlciA8LSBxdWFydGlsZXNbMV0gLSAxLjUqaXFyCmxvd2VyCnVwcGVyIDwtIHF1YXJ0aWxlc1syXSArIDEuNSppcXIKdXBwZXIKCmJveHBsb3QocGggfiBQb3RhYmlsaXR5LCBkYXRhID0gd2F0ZXJfcG90YWJpbGl0eSkKCnJlcGVhdCB7CiAgb3V0X3ZhbCA8LSBib3hwbG90KHdhdGVyX3BvdGFiaWxpdHkkcGgsIHlsYWIgPSAncGgnKSRvdXQKICBvdXRfdmFsCiAgb3V0X3Jvd3MgPC0gd2hpY2god2F0ZXJfcG90YWJpbGl0eSRwaCAlaW4lIGMob3V0X3ZhbCkpCiAgb3V0X3Jvd3MKICAKICBpZihzdW0ob3V0X3Jvd3MpID4gMCkgd2F0ZXJfcG90YWJpbGl0eSA8LSB3YXRlcl9wb3RhYmlsaXR5Wy1vdXRfcm93cyxdCiAgZWxzZSB7YnJlYWt9Cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JHBoKQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpgYGAKCi1IYXJkbmVzcwpgYGB7cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JEhhcmRuZXNzKQpxdWFydGlsZXMgPC0gcXVhbnRpbGUod2F0ZXJfcG90YWJpbGl0eSRIYXJkbmVzcywgcHJvYnMgPSBjKC4yNSwgLjc1KSwgbmEucm0gPSBGQUxTRSkKcXVhcnRpbGVzCmlxciA8LSBJUVIod2F0ZXJfcG90YWJpbGl0eSRIYXJkbmVzcykKaXFyCmxvd2VyIDwtIHF1YXJ0aWxlc1sxXSAtIDEuNSppcXIKbG93ZXIKdXBwZXIgPC0gcXVhcnRpbGVzWzJdICsgMS41Kmlxcgp1cHBlcgoKYm94cGxvdChIYXJkbmVzcyB+IFBvdGFiaWxpdHksIGRhdGEgPSB3YXRlcl9wb3RhYmlsaXR5KQoKcmVwZWF0IHsKICBvdXRfdmFsIDwtIGJveHBsb3Qod2F0ZXJfcG90YWJpbGl0eSRIYXJkbmVzcywgeWxhYiA9ICdIYXJkbmVzcycpJG91dAogIG91dF92YWwKICBvdXRfcm93cyA8LSB3aGljaCh3YXRlcl9wb3RhYmlsaXR5JEhhcmRuZXNzICVpbiUgYyhvdXRfdmFsKSkKICBvdXRfcm93cwoKICBpZihzdW0ob3V0X3Jvd3MpID4gMCkgd2F0ZXJfcG90YWJpbGl0eSA8LSB3YXRlcl9wb3RhYmlsaXR5Wy1vdXRfcm93cyxdCiAgZWxzZSB7YnJlYWt9Cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JEhhcmRuZXNzKQoKIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KYGBgCgotU29saWRzCmBgYHtyfQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkU29saWRzKQpxdWFydGlsZXMgPC0gcXVhbnRpbGUod2F0ZXJfcG90YWJpbGl0eSRTb2xpZHMsIHByb2JzID0gYyguMjUsIC43NSksIG5hLnJtID0gRkFMU0UpCnF1YXJ0aWxlcwppcXIgPC0gSVFSKHdhdGVyX3BvdGFiaWxpdHkkU29saWRzKQppcXIKbG93ZXIgPC0gcXVhcnRpbGVzWzFdIC0gMS41Kmlxcgpsb3dlcgp1cHBlciA8LSBxdWFydGlsZXNbMl0gKyAxLjUqaXFyCnVwcGVyCgpib3hwbG90KFNvbGlkcyB+IFBvdGFiaWxpdHksIGRhdGEgPSB3YXRlcl9wb3RhYmlsaXR5KQoKcmVwZWF0IHsKICBvdXRfdmFsIDwtIGJveHBsb3Qod2F0ZXJfcG90YWJpbGl0eSRTb2xpZHMsIHlsYWIgPSAnU29saWRzJykkb3V0CiAgb3V0X3ZhbAogIG91dF9yb3dzIDwtIHdoaWNoKHdhdGVyX3BvdGFiaWxpdHkkU29saWRzICVpbiUgYyhvdXRfdmFsKSkKICBvdXRfcm93cwoKICBpZihzdW0ob3V0X3Jvd3MpID4gMCkgd2F0ZXJfcG90YWJpbGl0eSA8LSB3YXRlcl9wb3RhYmlsaXR5Wy1vdXRfcm93cyxdCiAgZWxzZSB7YnJlYWt9Cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JFNvbGlkcykKCiMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCmBgYAoKLUNobG9yYW1pbmVzCmBgYHtyfQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkQ2hsb3JhbWluZXMpCnF1YXJ0aWxlcyA8LSBxdWFudGlsZSh3YXRlcl9wb3RhYmlsaXR5JENobG9yYW1pbmVzLCBwcm9icyA9IGMoLjI1LCAuNzUpLCBuYS5ybSA9IEZBTFNFKQpxdWFydGlsZXMKaXFyIDwtIElRUih3YXRlcl9wb3RhYmlsaXR5JENobG9yYW1pbmVzKQppcXIKbG93ZXIgPC0gcXVhcnRpbGVzWzFdIC0gMS41Kmlxcgpsb3dlcgp1cHBlciA8LSBxdWFydGlsZXNbMl0gKyAxLjUqaXFyCnVwcGVyCgpib3hwbG90KENobG9yYW1pbmVzIH4gUG90YWJpbGl0eSwgZGF0YSA9IHdhdGVyX3BvdGFiaWxpdHkpCgpyZXBlYXQgewogIG91dF92YWwgPC0gYm94cGxvdCh3YXRlcl9wb3RhYmlsaXR5JENobG9yYW1pbmVzLCB5bGFiID0gJ0NobG9yYW1pbmVzJykkb3V0CiAgb3V0X3ZhbAogIG91dF9yb3dzIDwtIHdoaWNoKHdhdGVyX3BvdGFiaWxpdHkkQ2hsb3JhbWluZXMgJWluJSBjKG91dF92YWwpKQogIG91dF9yb3dzCgogIGlmKHN1bShvdXRfcm93cykgPiAwKSB3YXRlcl9wb3RhYmlsaXR5IDwtIHdhdGVyX3BvdGFiaWxpdHlbLW91dF9yb3dzLF0KICBlbHNlIHticmVha30KfQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkQ2hsb3JhbWluZXMpCgojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQoKYGBgCgotU3VsZmF0ZQpgYGB7cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JFN1bGZhdGUpCnF1YXJ0aWxlcyA8LSBxdWFudGlsZSh3YXRlcl9wb3RhYmlsaXR5JFN1bGZhdGUsIHByb2JzID0gYyguMjUsIC43NSksIG5hLnJtID0gRkFMU0UpCnF1YXJ0aWxlcwppcXIgPC0gSVFSKHdhdGVyX3BvdGFiaWxpdHkkU3VsZmF0ZSkKaXFyCmxvd2VyIDwtIHF1YXJ0aWxlc1sxXSAtIDEuNSppcXIKbG93ZXIKdXBwZXIgPC0gcXVhcnRpbGVzWzJdICsgMS41Kmlxcgp1cHBlcgoKYm94cGxvdChTdWxmYXRlIH4gUG90YWJpbGl0eSwgZGF0YSA9IHdhdGVyX3BvdGFiaWxpdHkpCgpyZXBlYXQgewogIG91dF92YWwgPC0gYm94cGxvdCh3YXRlcl9wb3RhYmlsaXR5JFN1bGZhdGUsIHlsYWIgPSAnU3VsZmF0ZScpJG91dAogIG91dF92YWwKICBvdXRfcm93cyA8LSB3aGljaCh3YXRlcl9wb3RhYmlsaXR5JFN1bGZhdGUgJWluJSBjKG91dF92YWwpKQogIG91dF9yb3dzCgogIGlmKHN1bShvdXRfcm93cykgPiAwKSB3YXRlcl9wb3RhYmlsaXR5IDwtIHdhdGVyX3BvdGFiaWxpdHlbLW91dF9yb3dzLF0KICBlbHNlIHticmVha30KfQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkU3VsZmF0ZSkKCiMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgpgYGAKCi1Db25kdWN0aXZpdHkKYGBge3J9CnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRDb25kdWN0aXZpdHkpCnF1YXJ0aWxlcyA8LSBxdWFudGlsZSh3YXRlcl9wb3RhYmlsaXR5JENvbmR1Y3Rpdml0eSwgcHJvYnMgPSBjKC4yNSwgLjc1KSwgbmEucm0gPSBGQUxTRSkKcXVhcnRpbGVzCmlxciA8LSBJUVIod2F0ZXJfcG90YWJpbGl0eSRDb25kdWN0aXZpdHkpCmlxcgpsb3dlciA8LSBxdWFydGlsZXNbMV0gLSAxLjUqaXFyCmxvd2VyCnVwcGVyIDwtIHF1YXJ0aWxlc1syXSArIDEuNSppcXIKdXBwZXIKCmJveHBsb3QoQ29uZHVjdGl2aXR5IH4gUG90YWJpbGl0eSwgZGF0YSA9IHdhdGVyX3BvdGFiaWxpdHkpCgpyZXBlYXQgewogIG91dF92YWwgPC0gYm94cGxvdCh3YXRlcl9wb3RhYmlsaXR5JENvbmR1Y3Rpdml0eSwgeWxhYiA9ICdDb25kdWN0aXZpdHknKSRvdXQKICBvdXRfdmFsCiAgb3V0X3Jvd3MgPC0gd2hpY2god2F0ZXJfcG90YWJpbGl0eSRDb25kdWN0aXZpdHkgJWluJSBjKG91dF92YWwpKQogIG91dF9yb3dzCgogIGlmKHN1bShvdXRfcm93cykgPiAwKSB3YXRlcl9wb3RhYmlsaXR5IDwtIHdhdGVyX3BvdGFiaWxpdHlbLW91dF9yb3dzLF0KICBlbHNlIHticmVha30KfQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkQ29uZHVjdGl2aXR5KQoKIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KYGBgCgotT3JnYW5pY19jYXJib24KYGBge3J9CnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRPcmdhbmljX2NhcmJvbikKcXVhcnRpbGVzIDwtIHF1YW50aWxlKHdhdGVyX3BvdGFiaWxpdHkkT3JnYW5pY19jYXJib24sIHByb2JzID0gYyguMjUsIC43NSksIG5hLnJtID0gRkFMU0UpCnF1YXJ0aWxlcwppcXIgPC0gSVFSKHdhdGVyX3BvdGFiaWxpdHkkT3JnYW5pY19jYXJib24pCmlxcgpsb3dlciA8LSBxdWFydGlsZXNbMV0gLSAxLjUqaXFyCmxvd2VyCnVwcGVyIDwtIHF1YXJ0aWxlc1syXSArIDEuNSppcXIKdXBwZXIKCmJveHBsb3QoT3JnYW5pY19jYXJib24gfiBQb3RhYmlsaXR5LCBkYXRhID0gd2F0ZXJfcG90YWJpbGl0eSkKCnJlcGVhdCB7CiAgb3V0X3ZhbCA8LSBib3hwbG90KHdhdGVyX3BvdGFiaWxpdHkkT3JnYW5pY19jYXJib24sIHlsYWIgPSAnT3JnYW5pY19jYXJib24nKSRvdXQKICBvdXRfdmFsCiAgb3V0X3Jvd3MgPC0gd2hpY2god2F0ZXJfcG90YWJpbGl0eSRPcmdhbmljX2NhcmJvbiAlaW4lIGMob3V0X3ZhbCkpCiAgb3V0X3Jvd3MKCiAgaWYoc3VtKG91dF9yb3dzKSA+IDApIHdhdGVyX3BvdGFiaWxpdHkgPC0gd2F0ZXJfcG90YWJpbGl0eVstb3V0X3Jvd3MsXQogIGVsc2Uge2JyZWFrfQp9CnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRPcmdhbmljX2NhcmJvbikKCiMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCmBgYAoKLVRyaWhhbG9tZXRoYW5lcwpgYGB7cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5JFRyaWhhbG9tZXRoYW5lcykKcXVhcnRpbGVzIDwtIHF1YW50aWxlKHdhdGVyX3BvdGFiaWxpdHkkVHJpaGFsb21ldGhhbmVzLCBwcm9icyA9IGMoLjI1LCAuNzUpLCBuYS5ybSA9IEZBTFNFKQpxdWFydGlsZXMKaXFyIDwtIElRUih3YXRlcl9wb3RhYmlsaXR5JFRyaWhhbG9tZXRoYW5lcykKaXFyCmxvd2VyIDwtIHF1YXJ0aWxlc1sxXSAtIDEuNSppcXIKbG93ZXIKdXBwZXIgPC0gcXVhcnRpbGVzWzJdICsgMS41Kmlxcgp1cHBlcgoKYm94cGxvdChUcmloYWxvbWV0aGFuZXMgfiBQb3RhYmlsaXR5LCBkYXRhID0gd2F0ZXJfcG90YWJpbGl0eSkKCnJlcGVhdCB7CiAgb3V0X3ZhbCA8LSBib3hwbG90KHdhdGVyX3BvdGFiaWxpdHkkVHJpaGFsb21ldGhhbmVzLCB5bGFiID0gJ1RyaWhhbG9tZXRoYW5lcycpJG91dAogIG91dF92YWwKICBvdXRfcm93cyA8LSB3aGljaCh3YXRlcl9wb3RhYmlsaXR5JFRyaWhhbG9tZXRoYW5lcyAlaW4lIGMob3V0X3ZhbCkpCiAgb3V0X3Jvd3MKCiAgaWYoc3VtKG91dF9yb3dzKSA+IDApIHdhdGVyX3BvdGFiaWxpdHkgPC0gd2F0ZXJfcG90YWJpbGl0eVstb3V0X3Jvd3MsXQogIGVsc2Uge2JyZWFrfQp9CnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRUcmloYWxvbWV0aGFuZXMpCgojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpgYGAKCi1UdXJiaWRpdHkKYGBge3J9CnN1bW1hcnkod2F0ZXJfcG90YWJpbGl0eSRUdXJiaWRpdHkpCnF1YXJ0aWxlcyA8LSBxdWFudGlsZSh3YXRlcl9wb3RhYmlsaXR5JFR1cmJpZGl0eSwgcHJvYnMgPSBjKC4yNSwgLjc1KSwgbmEucm0gPSBGQUxTRSkKcXVhcnRpbGVzCmlxciA8LSBJUVIod2F0ZXJfcG90YWJpbGl0eSRUdXJiaWRpdHkpCmlxcgpsb3dlciA8LSBxdWFydGlsZXNbMV0gLSAxLjUqaXFyCmxvd2VyCnVwcGVyIDwtIHF1YXJ0aWxlc1syXSArIDEuNSppcXIKdXBwZXIKCmJveHBsb3QoVHVyYmlkaXR5IH4gUG90YWJpbGl0eSwgZGF0YSA9IHdhdGVyX3BvdGFiaWxpdHkpCgpyZXBlYXQgewogIG91dF92YWwgPC0gYm94cGxvdCh3YXRlcl9wb3RhYmlsaXR5JFR1cmJpZGl0eSwgeWxhYiA9ICdUdXJiaWRpdHknKSRvdXQKICBvdXRfdmFsCiAgb3V0X3Jvd3MgPC0gd2hpY2god2F0ZXJfcG90YWJpbGl0eSRUdXJiaWRpdHkgJWluJSBjKG91dF92YWwpKQogIG91dF9yb3dzCgogIGlmKHN1bShvdXRfcm93cykgPiAwKSB3YXRlcl9wb3RhYmlsaXR5IDwtIHdhdGVyX3BvdGFiaWxpdHlbLW91dF9yb3dzLF0KICBlbHNlIHticmVha30KfQpzdW1tYXJ5KHdhdGVyX3BvdGFiaWxpdHkkVHVyYmlkaXR5KQpgYGAKCgpBZnRlciByZW1vdmluZyBvdXRsaWVyczoKYGBge3J9CmRpbSh3YXRlcl9wb3RhYmlsaXR5KQpgYGAKCgpgYGB7cn0Kc3VtbWFyeSh3YXRlcl9wb3RhYmlsaXR5KQpgYGAKCgpgYGB7cn0Kc3RyKHdhdGVyX3BvdGFiaWxpdHkpCmBgYAoKCmBgYHtyfQpoZWFkKHdhdGVyX3BvdGFiaWxpdHkpCmBgYAoKRGVzY3JpcHRpb246ClJlbW92aW5nIG91dGxpZXJzIGZyb20gYSBkYXRhc2V0IGlzIGNyaXRpY2FsIGZvciBhc3N1cmluZyB0aGUgcXVhbGl0eSBhbmQgcmVsaWFiaWxpdHkgb2Ygc3RhdGlzdGljYWwgYW5hbHlzaXMgYW5kIG1hY2hpbmUgbGVhcm5pbmcgbW9kZWxzLiBUbyBwcm9kdWNlIGEgbW9yZSBhY2N1cmF0ZSBkYXRhc2V0IHRoYXQgd291bGQgaGVscCBvYnRhaW4gbW9yZSBwcmVjaXNlIHJlc3VsdHMgbGF0ZXIsIHdlIHRvb2sgdGhlIGZvbGxvd2luZyBzdGVwcyB0byBoYW5kbGUgb3V0bGllcnMgaW4gdGhlIG51bWVyaWMgYXR0cmlidXRlcy4gRmlyc3RseSwgd2UgaWRlbnRpZmllZCBhbGwgdGhlIG91dGxpZXJzLiBTZWNvbmRseSwgd2UgZGVsZXRlZCB0aGUgcm93cyBjb250YWluaW5nIHRoZSBvdXRsaWVycy4gRmluYWxseSwgd2UgY29uZHVjdGVkIGEgc2Vjb25kIGNoZWNrIHRvIGVuc3VyZSBhbGwgb3V0bGllcnMgd2VyZSBkZWxldGVkLiBBbnkgbmV3IG91dGxpZXJzIGR1ZSB0byB0aGUgSVFSIGNoYW5nZSBhZnRlciBkZWxldGluZyByb3dzIGluIHRoZSBzZWNvbmQgc3RlcCB3ZXJlIGFsc28gZWxpbWluYXRlZC4KCgoKQ2hhcnRzCgpIaXN0b2dyYW0KYGBge3J9Cmhpc3Qod2F0ZXJfcG90YWJpbGl0eSRwaCkKaGlzdCh3YXRlcl9wb3RhYmlsaXR5JENobG9yYW1pbmVzKQpoaXN0KHdhdGVyX3BvdGFiaWxpdHkkSGFyZG5lc3MpCmhpc3Qod2F0ZXJfcG90YWJpbGl0eSRTb2xpZHMpCmhpc3Qod2F0ZXJfcG90YWJpbGl0eSRTdWxmYXRlKQpoaXN0KHdhdGVyX3BvdGFiaWxpdHkkQ29uZHVjdGl2aXR5KQpoaXN0KHdhdGVyX3BvdGFiaWxpdHkkT3JnYW5pY19jYXJib24pCmhpc3Qod2F0ZXJfcG90YWJpbGl0eSRUcmloYWxvbWV0aGFuZXMpCmhpc3Qod2F0ZXJfcG90YWJpbGl0eSRUdXJiaWRpdHkpCmBgYAoKQmFyIFBsb3QKYGBge3J9CnRhYiA8LSB3YXRlcl9wb3RhYmlsaXR5JFBvdGFiaWxpdHkgJT4lIHRhYmxlKCkKdHh0IDwtIHBhc3RlMCh0YWIpIApiYiA8LSB3YXRlcl9wb3RhYmlsaXR5JHBoICU+JSB0YWJsZSgpICU+JSBiYXJwbG90KCBtYWluPSdwaCcsY29sPWMoJ3BpbmsnKSkKYmIgPC0gd2F0ZXJfcG90YWJpbGl0eSRQb3RhYmlsaXR5ICU+JSB0YWJsZSgpICU+JSBiYXJwbG90KCBtYWluPSdQb3RhYmlsaXR5Jyx5bGFiPSdGcmVxdWVuY3knLGNvbD1jKCdwaW5rJywgJ2xpZ2h0Ymx1ZScpKQp0ZXh0KGJiLCB0YWIvMiwgbGFiZWxzPXR4dCwgY2V4PTEpCgpgYGAKClBpZSBjaGFydApgYGB7cn0Kd2F0ZXJfcG90YWJpbGl0eSRQb3RhYmlsaXR5ICU+JSB0YWJsZSgpICU+JSBwaWUoKQpgYGAKClNjYXR0ZXIgUGxvdApgYGB7cn0Kd2l0aCh3YXRlcl9wb3RhYmlsaXR5LCBwbG90KFR1cmJpZGl0eSwgcGgsIGNvbCA9IFBvdGFiaWxpdHksIHBjaCA9IGFzLm51bWVyaWMoUG90YWJpbGl0eSkpKQpgYGAKIApEZXNjcmlwdGlvbjoKLUhpc3RvZ3JhbToKICBUaGUgaGlzdG9ncmFtIHNob3dzIHRoZSBmcmVxdWVuY3kgb2YgcGggaW4gdGhlIGRhdGFzZXQ7IHdlIG5vdGVkIHRoYXQgdGhlIG1ham9yaXR5IG9mIHZhbHVlcyBmYWxsICAgIHdpdGhpbiB0aGUgdXN1YWwgcmFuZ2UsIHdoaWNoIGlzIGFib3V0IGJldHdlZW4gNiBhbmQgOCwgYnV0IGl0IGFsc28gc2hvd3Mgc2V2ZXJhbCBvdXRsaWVycy4KLVNjYXR0ZXIgcGxvdDoKICBUaGlzIHNjYXR0ZXIgZGVtb25zdHJhdGVzIHRoZSBjb3JyZWxhdGlvbiBhbmQgcHJvcG9ydGlvbmFsaXR5IGJldHdlZW4gdGhlIHR3byBxdWFsaXRpZXMsIGFsbG93aW5nICAgIHVzIHRvIGVzdGFibGlzaCB3aGV0aGVyIG9yIG5vdCB0dXJiaWRpdHkgYW5kIHBIIGFyZSBjb25uZWN0ZWQuCi1CYXIgUGxvdAogIHRoZSBiYXIgcGxvdCByZXByZXNlbnQgaG93IHBoIGxldmVscyBhZmZlY3Qgd2F0ZXIgcG9ydGFiaWxpdHkgaW4gdGhlIGRhdGFzZXQgaXQgaW5kaWNhdGVzIHRoYXQgcGggICAgbGV2ZWwgYWJvdmUgMTAgaXMgbm90IHBvcnRpYmFsIGFuZCBodW1hbnMgY2FudCBjb25zdW1lIGl0IAoKCgpSZW1vdmUgUmVkdW5kYW50IEZlYXR1cmVzOgpgYGB7cn0KY29ycmVsYXRpb25fbWF0cml4IDwtIGNvcih3YXRlcl9wb3RhYmlsaXR5WywxOjldKQpoaWdoX2NvcnJlbGF0aW9uX2ZlYXR1cmVzIDwtIGZpbmRDb3JyZWxhdGlvbihjb3JyZWxhdGlvbl9tYXRyaXgsIGN1dG9mZiA9IDAuNSkKcHJpbnQoaGlnaF9jb3JyZWxhdGlvbl9mZWF0dXJlcykKaGVhdG1hcChjb3JyZWxhdGlvbl9tYXRyaXgpCmBgYApEZXNjcmlwdGlvbjoKVGhpcyB3aWxsIGZpbmQgdGhlIGNvcnJlbGF0aW9uIGJldHdlZW4gdGhlIGZlYXR1cmVzIGFuZCByZXByZXNlbnQgaXQgaW4gaGVhdCBtYXAKCgoKRmVhdHVyZSBzZWxlY3Rpb24KClJhbmsgRmVhdHVyZXMgQnkgSW1wb3J0YW5jZToKYGBge3IsIHdhcm5pbmc9RkFMU0V9CiN0cmFpbiByYW5kb20gZm9yZXN0IG1vZGVsIGFuZCBjYWxjdWxhdGUgZmVhdHVyZSBpbXBvcnRhbmNlCnJmID0gcmFuZG9tRm9yZXN0KHg9IHdhdGVyX3BvdGFiaWxpdHlbLDE6OV0seT0gd2F0ZXJfcG90YWJpbGl0eVssMTBdKQp2YXJfaW1wIDwtIHZhckltcChyZiwgc2NhbGUgPSBGQUxTRSkKI3NvcnQgdGhlIHNjb3JlIGluIGRlY3JlYXNpbmcgb3JkZXIKdmFyX2ltcF9kZiA8LSBkYXRhLmZyYW1lKGNiaW5kKHZhcmlhYmxlID0gcm93bmFtZXModmFyX2ltcCksIHNjb3JlID0gdmFyX2ltcFssMV0pKQp2YXJfaW1wX2RmJHNjb3JlIDwtIGFzLmRvdWJsZSh2YXJfaW1wX2RmJHNjb3JlKQp2YXJfaW1wX2RmW29yZGVyKHZhcl9pbXBfZGYkc2NvcmUsZGVjcmVhc2luZyA9IFRSVUUpLF0KCmdncGxvdCh2YXJfaW1wX2RmLCBhZXMoeD1yZW9yZGVyKHZhcmlhYmxlLCBzY29yZSksIHk9c2NvcmUpKSArIAogIGdlb21fcG9pbnQoKSArCiAgZ2VvbV9zZWdtZW50KGFlcyh4PXZhcmlhYmxlLHhlbmQ9dmFyaWFibGUseT0wLHllbmQ9c2NvcmUpKSArCiAgeWxhYigiSW5jTm9kZVB1cml0eSIpICsKICB4bGFiKCJWYXJpYWJsZSBOYW1lIikgKwogIGNvb3JkX2ZsaXAoKQpgYGAKClJlY3Vyc2l2ZSBGZWF0dXJlIGVsaW1pbmF0aW9uOgpgYGB7ciwgd2FybmluZz1GQUxTRX0KY29udHJvbCA8LSByZmVDb250cm9sKGZ1bmN0aW9ucz1yZkZ1bmNzLCBtZXRob2Q9ImN2IixudW1iZXI9MTApCnJmIDwtIHRyYWluQ29udHJvbChtZXRob2QgPSAiY3YiLCBudW1iZXIgPSAxMCwgdmVyYm9zZUl0ZXIgPSBGQUxTRSkKIyBydW4gdGhlIFJGRSBhbGdvcml0aG0KcmZlX21vZGVsIDwtIHJmZSh4PSB3YXRlcl9wb3RhYmlsaXR5WywxOjldLHk9IHdhdGVyX3BvdGFiaWxpdHlbLDEwXSwgc2l6ZXM9YygxOjkpLCByZmVDb250cm9sPWNvbnRyb2wpCiMgc3VtbWFyaXplIHRoZSByZXN1bHRzCnByaW50KHJmZV9tb2RlbCkKIyBsaXN0IHRoZSBjaG9zZW4gZmVhdHVyZXMKcHJlZGljdG9ycyhyZmVfbW9kZWwpCiMgcGxvdCB0aGUgcmVzdWx0cwpwbG90KHJmZV9tb2RlbCwgdHlwZT1jKCJnIiwgIm8iKSkKYGBgCkRlc2NyaXB0aW9uOgpSYW5raW5nIGZlYXR1cmVzIGJ5IGltcG9ydGFuY2UgaXMgYSB0ZWNobmlxdWUgdXNlZCB0byBpZGVudGlmeSB0aGUgbW9zdCBpbmZsdWVudGlhbCB2YXJpYWJsZXMgaW4gYSBkYXRhc2V0IGZvciBwcmVkaWN0aW5nIGEgdGFyZ2V0IHZhcmlhYmxlLiBUaGlzIHByb2Nlc3MgaGVscHMgdW5kZXJzdGFuZCB3aGljaCBmZWF0dXJlcyBpbXBhY3QgdGhlIG1vZGVsJ3MgcGVyZm9ybWFuY2UgbW9zdCBieSByYW5raW5nIGZlYXR1cmVzIGJ5IGltcG9ydGFuY2UuCgpSZW1vdmluZyByZWR1bmRhbnQgZmVhdHVyZXMgbWVhbnMgZWxpbWluYXRpbmcgdmFyaWFibGVzIG9yIGZlYXR1cmVzIGZyb20gYSBkYXRhc2V0IHRoYXQgZG8gbm90IHByb3ZpZGUgYWRkaXRpb25hbCBvciB1bmlxdWXCoGluZm9ybWF0aW9uLgoKCgpEYXRhIHRyYW5zZm9ybWF0aW9uCgpEaXNjcmV0aXphdGlvbjoKYGBge3J9CndwPC0gd2F0ZXJfcG90YWJpbGl0eQp3cCRwaD0gY3V0KHdwJHBoLCBicmVha3MgPSBzZXEoMywxMSxieT00KSxyaWdodD1GQUxTRSkKd3AkSGFyZG5lc3M9IGN1dCh3cCRIYXJkbmVzcywgYnJlYWtzID0gc2VxKDEyMCwyODAsYnk9NDApLHJpZ2h0PUZBTFNFKQp3cCRDaGxvcmFtaW5lcyA9IGN1dCh3cCRDaGxvcmFtaW5lcywgYnJlYWtzID0gc2VxKDMsMTEsYnk9NCkscmlnaHQgPSBGQUxTRSkKd3AkU3VsZmF0ZT0gY3V0KHdwJFN1bGZhdGUsIGJyZWFrcyA9IHNlcSgyMjAsNDQwLGJ5PTQ0KSxyaWdodD1GQUxTRSkKd3AkQ29uZHVjdGl2aXR5PSBjdXQod3AkQ29uZHVjdGl2aXR5LCBicmVha3MgPSBzZXEoMjAwLDcwMCxieT0xMDApLHJpZ2h0PUZBTFNFKQp3cCRPcmdhbmljX2NhcmJvbj0gY3V0KHdwJE9yZ2FuaWNfY2FyYm9uLCBicmVha3MgPSBzZXEoNCwyNCxieT00KSxyaWdodD1GQUxTRSkKd3AkVHJpaGFsb21ldGhhbmVzPSBjdXQod3AkVHJpaGFsb21ldGhhbmVzLCBicmVha3MgPSBzZXEoMjAsMTEwLGJ5PTEwKSxyaWdodD1GQUxTRSkKd3AkVHVyYmlkaXR5PSBjdXQod3AkVHVyYmlkaXR5LCBicmVha3MgPSBzZXEoMSw3LGJ5PTIpLHJpZ2h0PUZBTFNFKQoKcHJpbnQod3ApCmBgYApEZXNjcmlwdGlvbjoKRGlzY3JldGl6YXRpb24gaXMgdGhlIHByb2Nlc3Mgb2YgdHJhbnNmb3JtaW5nIGNvbnRpbnVvdXMgdmFyaWFibGVzIGludG8gZGlzY3JldGUgb3IgY2F0ZWdvcmljYWwgdmFyaWFibGVzLiBJdCBjYW4gYmUgdXNlZnVsIGZvciBhbmFseXppbmcgZGF0YSB3aXRoIG1hbnkgdW5pcXVlIHZhbHVlcyBvciBzaW1wbGlmeWluZyBpdC4gVGhlcmVmb3JlLCB3ZSB0cmFuc2Zvcm1lZCB0aGUgY29udGludW91cyB2YWx1ZXMgb2YgdGhlIG51bWVyaWMgYXR0cmlidXRlcyBpbnRvIGludGVydmFscyBieSBkaXZpZGluZyB0aGUgdmFsdWVzIHRvIGZhbGwgb24gb25lIG9mIHRoZSBwb3NzaWJsZSBpbnRlcnZhbCBsYWJlbHMgYnkgZGlzY3JldGl6YXRpb24uIFRoZSB2YWx1ZXMgd2lsbCBiZSBtZWFuaW5nZnVsIGFuZCBzaW1wbGVyIHRvIGNsYXNzaWZ5IG9yIHBlcmZvcm0gb3RoZXIgbWV0aG9kcyB0byBoZWxwIHVzIGxhdGVyIGluIG91ciBtb2RlbC4gU28sIEluIFRyaWhhbG9tZXRoYW5lcywgd2UgaW50ZXJ2YWxzIGJ5IGRpdmlkaW5nIHRoZSB2YWx1ZXMgYnkgMTAgdG8gaGF2ZSBsYWJlbHMgd2l0aCBlcXVhbCB3aWR0aCA6IFsyMCwzMCkgWzMwLDQwKSBbNDAsNTApIFs1MCw2MCkgWzYwLDcwKSBbNzAsODApIFs4MCw5MCkgWzkwLDEwMCkgWzEwMCwxMTApLgoKCk5vcm1saXphdGlvbgpgYGB7cn0Kbm9ybWFsaXplPWZ1bmN0aW9uKHgpe3JldHVybiAoKHgtbWluKHgpKS8obWF4KHgpKSl9CndwJFNvbGlkcz1ub3JtYWxpemUod3AkU29saWRzKQpgYGAKRGVzY3JpcHRpb246Ck5vcm1hbGl6YXRpb24gcmVmZXJzIHRvIHRoZSBwcm9jZXNzIG9mIHNjYWxpbmcgdmFyaWFibGVzIHRvIGhhdmUgYSBjb21tb24gcmFuZ2UuIEl0IGhlbHBzIGluIGNvbXBhcmluZyB2YXJpYWJsZXMgd2l0aCBkaWZmZXJlbnQgc2NhbGVzLiBUaGUgc29saWRzIGF0dHJpYnV0ZSB3aWxsIGNyZWF0ZSBjcml0aWNhbCBjaGFsbGVuZ2VzIGJlY2F1c2Ugb2YgdGhlIHZhc3QgYW5kIGRpdmVydGVkIHZhbHVlczogbWluIGlzIDMyMC45LCBhbmQgbWF4IGlzIDQzMTk1LjUsIHNvIHdlIG5vcm1hbGl6ZWQgdGhlIHNvbGlkcyBiZXR3ZWVuIDAgYW5kIDEgdG8gbWFrZSB2YWx1ZXMgc21hbGxlciBhbmQgbW9yZSByZWFzb25hYmxlLgoKCkVuY29kaW5nCgpEZXNjcmlwdGlvbjoKRW5jb2RpbmcgaXMgY29udmVydGluZyBjaGFyYWN0ZXJzIG9yIHN0cmluZ3MgaW50byBhIHNwZWNpZmljIGVuY29kaW5nIGZvcm1hdC4gV2UgY291bGQgbm90IGltcGxlbWVudCBpdCBzaW5jZSBvdXIgZGF0YWJhc2UgZG9lcyBub3QgaGF2ZSBhIE5vbWluYWwgYXR0cmlidXRlLgoKYGBge3J9CndwCmBgYAoKCkluZm9ybWF0aW9uIGdhaW4gKElEMykKU3BsaXR0aW5nIHRoZSBkYXRhIHNldCBpbnRvIHR3byBzdWJzZXRzOiBUcmFpbmluZyg3MCUpIGFuZCBUZXN0aW5nKDMwJSk6CmBgYHtyfQpzZXQuc2VlZCgxOTU4KQppbmQgPC0gc2FtcGxlKDIsIG5yb3cod3ApLCByZXBsYWNlID0gVFJVRSwgcHJvYiA9IGMoMC43LCAwLjMpKQp0cmFpbi5kYXRhIDwtIHdwW2luZCA9PSAxLCBdCnRlc3QuZGF0YSA8LSB3cFtpbmQgPT0gMiwgXQp0cmFpbi5kYXRhJFBvdGFiaWxpdHkgPC0gYXMuZmFjdG9yKHRyYWluLmRhdGEkUG90YWJpbGl0eSkKdGVzdC5kYXRhJFBvdGFiaWxpdHkgPC0gYXMuZmFjdG9yKHRlc3QuZGF0YSRQb3RhYmlsaXR5KQoKCm15Rm9ybXVsYSA8LSBQb3RhYmlsaXR5IH4gcGgrSGFyZG5lc3MrU29saWRzK0NobG9yYW1pbmVzK1N1bGZhdGUrQ29uZHVjdGl2aXR5K09yZ2FuaWNfY2FyYm9uK1RyaWhhbG9tZXRoYW5lcytUdXJiaWRpdHkKI215Rm9ybXVsYSA8LSBQb3RhYmlsaXR5IH4gcGgrSGFyZG5lc3MrU29saWRzK0NobG9yYW1pbmVzK1N1bGZhdGUKCgptLmN0cmVlIDwtIGN0cmVlKG15Rm9ybXVsYSwgZGF0YSA9IHRyYWluLmRhdGEpCnRhYmxlKHByZWRpY3QobS5jdHJlZSksIHRyYWluLmRhdGEkUG90YWJpbGl0eSkKCnByaW50KG0uY3RyZWUpCnBsb3QobS5jdHJlZSwgdHlwZT0ic2ltcGxlIikKCnRlc3RQcmVkIDwtIHByZWRpY3QobS5jdHJlZSwgbmV3ZGF0YSA9IHRlc3QuZGF0YSkKcmVzdWx0PC10YWJsZSh0ZXN0UHJlZCwgdGVzdC5kYXRhJFBvdGFiaWxpdHkpCgoKY29fcmVzdWx0IDwtIGNvbmZ1c2lvbk1hdHJpeChyZXN1bHQpCnByaW50KGNvX3Jlc3VsdCkKYXMubWF0cml4KGNvX3Jlc3VsdCwgd2hhdCA9ICJjbGFzc2VzIikKYWNjIDwtIGNvX3Jlc3VsdCRvdmVyYWxsWyJBY2N1cmFjeSJdCmFjYyoxMDAKCgpwcmVkX3Byb2JzIDwtIGFzLm51bWVyaWMocHJlZGljdChtLmN0cmVlLCBuZXdkYXRhID0gdGVzdC5kYXRhLCB0eXBlID0gInJlc3BvbnNlIikpCmJpbmFyeV9vdXRjb21lIDwtIGFzLm51bWVyaWModGVzdC5kYXRhJFBvdGFiaWxpdHkgPT0gIlBvdGFibGUiKQojIFJPQyBjdXJ2ZQpyb2NfY3VydmUgPC0gcm9jKGJpbmFyeV9vdXRjb21lLCBwcmVkX3Byb2JzKQpwbG90KHJvY19jdXJ2ZSwgbWFpbiA9ICJST0MgQ3VydmUiLCBjb2wgPSAiYmx1ZSIsIGx3ZCA9IDIpCmFibGluZShhID0gMCwgYiA9IDEsIGNvbCA9ICJncmF5IiwgbHR5ID0gMikKIyBQcmludCBBVUMKY2F0KCJBVUM6IiwgYXVjKHJvY19jdXJ2ZSksICJcbiIpCmBgYAoKU3BsaXR0aW5nIHRoZSBkYXRhIHNldCBpbnRvIHR3byBzdWJzZXRzOiBUcmFpbmluZyg4MCUpIGFuZCBUZXN0aW5nKDIwJSk6CmBgYHtyfQoKc2V0LnNlZWQoMTk1OCkKaW5kIDwtIHNhbXBsZSgyLCBucm93KHdwKSwgcmVwbGFjZSA9IFRSVUUsIHByb2IgPSBjKDAuOCwgMC4yKSkKdHJhaW4uZGF0YSA8LSB3cFtpbmQgPT0gMSwgXQp0ZXN0LmRhdGEgPC0gd3BbaW5kID09IDIsIF0KdHJhaW4uZGF0YSRQb3RhYmlsaXR5IDwtIGFzLmZhY3Rvcih0cmFpbi5kYXRhJFBvdGFiaWxpdHkpCgpteUZvcm11bGEgPC0gUG90YWJpbGl0eSB+IHBoK0hhcmRuZXNzK1NvbGlkcytDaGxvcmFtaW5lcytTdWxmYXRlK0NvbmR1Y3Rpdml0eStPcmdhbmljX2NhcmJvbitUcmloYWxvbWV0aGFuZXMrVHVyYmlkaXR5CiNteUZvcm11bGEgPC0gUG90YWJpbGl0eSB+IHBoK0hhcmRuZXNzK1NvbGlkcytDaGxvcmFtaW5lcytTdWxmYXRlCgoKbS5jdHJlZSA8LSBjdHJlZShteUZvcm11bGEsIGRhdGEgPSB0cmFpbi5kYXRhKQp0YWJsZShwcmVkaWN0KG0uY3RyZWUpLCB0cmFpbi5kYXRhJFBvdGFiaWxpdHkpCgpwcmludChtLmN0cmVlKQpwbG90KG0uY3RyZWUsIHR5cGU9InNpbXBsZSIpCgp0ZXN0UHJlZCA8LSBwcmVkaWN0KG0uY3RyZWUsIG5ld2RhdGEgPSB0ZXN0LmRhdGEpCnJlc3VsdDwtdGFibGUodGVzdFByZWQsIHRlc3QuZGF0YSRQb3RhYmlsaXR5KQoKCmNvX3Jlc3VsdCA8LSBjb25mdXNpb25NYXRyaXgocmVzdWx0KQpwcmludChjb19yZXN1bHQpCmFzLm1hdHJpeChjb19yZXN1bHQsIHdoYXQgPSAiY2xhc3NlcyIpCmFjYyA8LSBjb19yZXN1bHQkb3ZlcmFsbFsiQWNjdXJhY3kiXQphY2MqMTAwCgpwcmVkX3Byb2JzIDwtIGFzLm51bWVyaWMocHJlZGljdChtLmN0cmVlLCBuZXdkYXRhID0gdGVzdC5kYXRhLCB0eXBlID0gInJlc3BvbnNlIikpCmJpbmFyeV9vdXRjb21lIDwtIGFzLm51bWVyaWModGVzdC5kYXRhJFBvdGFiaWxpdHkgPT0gIlBvdGFibGUiKQojIFJPQyBjdXJ2ZQpyb2NfY3VydmUgPC0gcm9jKGJpbmFyeV9vdXRjb21lLCBwcmVkX3Byb2JzKQpwbG90KHJvY19jdXJ2ZSwgbWFpbiA9ICJST0MgQ3VydmUiLCBjb2wgPSAiYmx1ZSIsIGx3ZCA9IDIpCmFibGluZShhID0gMCwgYiA9IDEsIGNvbCA9ICJncmF5IiwgbHR5ID0gMikKIyBQcmludCBBVUMKY2F0KCJBVUM6IiwgYXVjKHJvY19jdXJ2ZSksICJcbiIpCmBgYAoKU3BsaXR0aW5nIHRoZSBkYXRhIHNldCBpbnRvIHR3byBzdWJzZXRzOiBUcmFpbmluZyg5MCUpIGFuZCBUZXN0aW5nKDEwJSk6CmBgYHtyfQpzZXQuc2VlZCgxOTU4KQppbmQgPC0gc2FtcGxlKDIsIG5yb3cod3ApLCByZXBsYWNlID0gVFJVRSwgcHJvYiA9IGMoMC45LCAwLjEpKQp0cmFpbi5kYXRhIDwtIHdwW2luZCA9PSAxLCBdCnRlc3QuZGF0YSA8LSB3cFtpbmQgPT0gMiwgXQp0cmFpbi5kYXRhJFBvdGFiaWxpdHkgPC0gYXMuZmFjdG9yKHRyYWluLmRhdGEkUG90YWJpbGl0eSkKCm15Rm9ybXVsYSA8LSBQb3RhYmlsaXR5IH4gcGgrSGFyZG5lc3MrU29saWRzK0NobG9yYW1pbmVzK1N1bGZhdGUrQ29uZHVjdGl2aXR5K09yZ2FuaWNfY2FyYm9uK1RyaWhhbG9tZXRoYW5lcytUdXJiaWRpdHkKI215Rm9ybXVsYSA8LSBQb3RhYmlsaXR5IH4gcGgrSGFyZG5lc3MrU29saWRzK0NobG9yYW1pbmVzK1N1bGZhdGUKCgptLmN0cmVlIDwtIGN0cmVlKG15Rm9ybXVsYSwgZGF0YSA9IHRyYWluLmRhdGEpCnRhYmxlKHByZWRpY3QobS5jdHJlZSksIHRyYWluLmRhdGEkUG90YWJpbGl0eSkKCnByaW50KG0uY3RyZWUpCnBsb3QobS5jdHJlZSwgdHlwZT0ic2ltcGxlIikKCnRlc3RQcmVkIDwtIHByZWRpY3QobS5jdHJlZSwgbmV3ZGF0YSA9IHRlc3QuZGF0YSkKcmVzdWx0PC10YWJsZSh0ZXN0UHJlZCwgdGVzdC5kYXRhJFBvdGFiaWxpdHkpCgoKY29fcmVzdWx0IDwtIGNvbmZ1c2lvbk1hdHJpeChyZXN1bHQpCnByaW50KGNvX3Jlc3VsdCkKYXMubWF0cml4KGNvX3Jlc3VsdCwgd2hhdCA9ICJjbGFzc2VzIikKYWNjIDwtIGNvX3Jlc3VsdCRvdmVyYWxsWyJBY2N1cmFjeSJdCmFjYyoxMDAKCnByZWRfcHJvYnMgPC0gYXMubnVtZXJpYyhwcmVkaWN0KG0uY3RyZWUsIG5ld2RhdGEgPSB0ZXN0LmRhdGEsIHR5cGUgPSAicmVzcG9uc2UiKSkKYmluYXJ5X291dGNvbWUgPC0gYXMubnVtZXJpYyh0ZXN0LmRhdGEkUG90YWJpbGl0eSA9PSAiUG90YWJsZSIpCiMgUk9DIGN1cnZlCnJvY19jdXJ2ZSA8LSByb2MoYmluYXJ5X291dGNvbWUsIHByZWRfcHJvYnMpCnBsb3Qocm9jX2N1cnZlLCBtYWluID0gIlJPQyBDdXJ2ZSIsIGNvbCA9ICJibHVlIiwgbHdkID0gMikKYWJsaW5lKGEgPSAwLCBiID0gMSwgY29sID0gImdyYXkiLCBsdHkgPSAyKQojIFByaW50IEFVQwpjYXQoIkFVQzoiLCBhdWMocm9jX2N1cnZlKSwgIlxuIikKYGBgCgpHYWluIHJhdGlvIChDNC41KQoKYGBge3J9CiMgMyBmb2xkcwpzZXQuc2VlZCgxOTU4KQp0cmFpbiA8LSBjcmVhdGVGb2xkcyh3cCRQb3RhYmlsaXR5LCBrPTMpCkM0NUZpdCA8LSB0cmFpbihQb3RhYmlsaXR5IH4gLixtZXRob2QgPSAiSjQ4IixkYXRhID0gd3AsCiAgICAgICAgICAgICAgICB0ckNvbnRyb2wgPSB0cmFpbkNvbnRyb2woCiAgICAgICAgICAgICAgICBtZXRob2QgPSAiY3YiLAogICAgICAgICAgICAgICAgaW5kZXggPSB0cmFpbiwKICAgICAgICAgICAgICAgIHNhdmVQcmVkaWN0aW9ucyA9IFRSVUUpKQoKQzQ1Rml0CgpDNDVGaXQkZmluYWxNb2RlbAoKcHJlZF9wcm9icyA8LSBwcmVkaWN0KEM0NUZpdCwgbmV3ZGF0YSA9IHdwLCB0eXBlID0gInByb2IiKVssICJQb3RhYmxlIl0KYmluYXJ5X291dGNvbWUgPC0gYXMubnVtZXJpYyh3cCRQb3RhYmlsaXR5ID09ICJQb3RhYmxlIikKIyBST0MgY3VydmUKcm9jX2N1cnZlIDwtIHJvYyhiaW5hcnlfb3V0Y29tZSwgcHJlZF9wcm9icykKcGxvdChyb2NfY3VydmUsIG1haW4gPSAiUk9DIEN1cnZlIiwgY29sID0gImJsdWUiLCBsd2QgPSAyKQphYmxpbmUoYSA9IDAsIGIgPSAxLCBjb2wgPSAiZ3JheSIsIGx0eSA9IDIpCiMgUHJpbnQgQVVDCmNhdCgiQVVDOiIsIGF1Yyhyb2NfY3VydmUpLCAiXG4iKQpgYGAKCmBgYHtyfQojIDUgZm9sZHMKc2V0LnNlZWQoMTk1OCkKdHJhaW4gPC0gY3JlYXRlRm9sZHMod3AkUG90YWJpbGl0eSwgaz01KQpDNDVGaXQgPC0gdHJhaW4oUG90YWJpbGl0eSB+LiwgbWV0aG9kPSJKNDgiLCBkYXRhPXdwLAogICAgICAgICAgICAgICAgdHJDb250cm9sID0gdHJhaW5Db250cm9sKAogICAgICAgICAgICAgICAgbWV0aG9kID0iY3YiLCAKICAgICAgICAgICAgICAgIGluZGV4ID0gdHJhaW4sCiAgICAgICAgICAgICAgICBzYXZlUHJlZGljdGlvbnMgPSBUUlVFKSkKCkM0NUZpdAoKQzQ1Rml0JGZpbmFsTW9kZWwKCnByZWRfcHJvYnMgPC0gcHJlZGljdChDNDVGaXQsIG5ld2RhdGEgPSB3cCwgdHlwZSA9ICJwcm9iIilbLCAiUG90YWJsZSJdCmJpbmFyeV9vdXRjb21lIDwtIGFzLm51bWVyaWMod3AkUG90YWJpbGl0eSA9PSAiUG90YWJsZSIpCiMgUk9DIGN1cnZlCnJvY19jdXJ2ZSA8LSByb2MoYmluYXJ5X291dGNvbWUsIHByZWRfcHJvYnMpCnBsb3Qocm9jX2N1cnZlLCBtYWluID0gIlJPQyBDdXJ2ZSIsIGNvbCA9ICJibHVlIiwgbHdkID0gMikKYWJsaW5lKGEgPSAwLCBiID0gMSwgY29sID0gImdyYXkiLCBsdHkgPSAyKQojIFByaW50IEFVQwpjYXQoIkFVQzoiLCBhdWMocm9jX2N1cnZlKSwgIlxuIikKCmBgYAoKYGBge3J9CiMgMTAgZm9sZHMKc2V0LnNlZWQoMTk1OCkKdHJhaW4gPC0gY3JlYXRlRm9sZHMod3AkUG90YWJpbGl0eSwgaz0xMCkKQzQ1Rml0IDwtIHRyYWluKFBvdGFiaWxpdHkgfi4sIG1ldGhvZD0iSjQ4IiwgZGF0YT13cCwKICAgICAgICAgICAgICAgIHRyQ29udHJvbCA9IHRyYWluQ29udHJvbCgKICAgICAgICAgICAgICAgICAgbWV0aG9kPSJjdiIsIGluZGV4T3V0PXRyYWluKSkKCkM0NUZpdAoKQzQ1Rml0JGZpbmFsTW9kZWwKCnByZWRfcHJvYnMgPC0gcHJlZGljdChDNDVGaXQsIG5ld2RhdGEgPSB3cCwgdHlwZSA9ICJwcm9iIilbLCAiUG90YWJsZSJdCmJpbmFyeV9vdXRjb21lIDwtIGFzLm51bWVyaWMod3AkUG90YWJpbGl0eSA9PSAiUG90YWJsZSIpCiMgUk9DIGN1cnZlCnJvY19jdXJ2ZSA8LSByb2MoYmluYXJ5X291dGNvbWUsIHByZWRfcHJvYnMpCnBsb3Qocm9jX2N1cnZlLCBtYWluID0gIlJPQyBDdXJ2ZSIsIGNvbCA9ICJibHVlIiwgbHdkID0gMikKYWJsaW5lKGEgPSAwLCBiID0gMSwgY29sID0gImdyYXkiLCBsdHkgPSAyKQojIFByaW50IEFVQwpjYXQoIkFVQzoiLCBhdWMocm9jX2N1cnZlKSwgIlxuIikKCmBgYAoKCkdpbmkgaW5kZXggKENBUlQpClNwbGl0dGluZyB0aGUgZGF0YSBzZXQgaW50byB0d28gc3Vic2V0czogVHJhaW5pbmcoNzAlKSBhbmQgVGVzdGluZygzMCUpOgpgYGB7cn0Kc2V0LnNlZWQoMTk1OCkKdHJhaW4gPSBzYW1wbGUoMiwgbnJvdyh3cCksIHJlcGxhY2U9VFJVRSwgcHJvYj1jKDAuNywgMC4zKSkKd3AudHJhaW49d3BbdHJhaW4gPT0gMSxdCndwLnRlc3Q9d3BbdHJhaW4gPT0gMixdCgoKCmZpdC50cmVlID0gcnBhcnQoUG90YWJpbGl0eSB+IC4sIGRhdGE9d3AsIG1ldGhvZCA9ICJjbGFzcyIsIGNwPTAuMDA4KQpmaXQudHJlZQoKcnBhcnQucGxvdChmaXQudHJlZSkKCmZpdC50cmVlJHZhcmlhYmxlLmltcG9ydGFuY2UKCnByZWQudHJlZSA9IHByZWRpY3QoZml0LnRyZWUsIHdwLnRlc3QsIHR5cGUgPSAiY2xhc3MiKQpyZSA8LSB0YWJsZShwcmVkLnRyZWUsIHdwLnRlc3QkUG90YWJpbGl0eSkKCmNvX3JlIDwtIGNvbmZ1c2lvbk1hdHJpeChyZSkKcHJpbnQoY29fcmUpCmFzLm1hdHJpeChjb19yZSwgd2hhdCA9ICJjbGFzc2VzIikKYWNjIDwtIGNvX3JlJG92ZXJhbGxbIkFjY3VyYWN5Il0KYWNjKjEwMAoKcGxvdGNwKGZpdC50cmVlKQpwcmludGNwKGZpdC50cmVlKQoKIyBFeHBsaWNpdGx5IHJlcXVlc3QgdGhlIGxvd2VzdCBjcCB2YWx1ZQpmaXQudHJlZSRjcHRhYmxlW3doaWNoLm1pbihmaXQudHJlZSRjcHRhYmxlWywieGVycm9yIl0pLCJDUCJdCgpiZXN0Y3AgPC1maXQudHJlZSRjcHRhYmxlW3doaWNoLm1pbihmaXQudHJlZSRjcHRhYmxlWywieGVycm9yIl0pLCJDUCJdCnBydW5lZC50cmVlIDwtIHBydW5lKGZpdC50cmVlLCBjcCA9IGJlc3RjcCkKcnBhcnQucGxvdChwcnVuZWQudHJlZSkKCnByZWQucHJ1bmUgPSBwcmVkaWN0KHBydW5lZC50cmVlLCB3cC50ZXN0LCB0eXBlPSJjbGFzcyIpCgpyZSA8LSB0YWJsZShwcmVkLnBydW5lLCB3cC50ZXN0JFBvdGFiaWxpdHkpCgpjb19yZSA8LSBjb25mdXNpb25NYXRyaXgocmUpCnByaW50KGNvX3JlKQphcy5tYXRyaXgoY29fcmUsIHdoYXQgPSAiY2xhc3NlcyIpCmFjYyA8LSBjb19yZSRvdmVyYWxsWyJBY2N1cmFjeSJdCmFjYyoxMDAKCgoKcHJlZC50cmVlX3JhdyA8LSBwcmVkaWN0KGZpdC50cmVlLCB3cC50ZXN0KQojIENvbnZlcnQgdG8gcHJvYmFiaWxpdGllcwpwcmVkLnRyZWVfcHJvYnMgPC0gZXhwKHByZWQudHJlZV9yYXcpIC8gKDEgKyBleHAocHJlZC50cmVlX3JhdykpCiMgRXh0cmFjdCBwcm9iYWJpbGl0aWVzIGZvciB0aGUgIlBvdGFibGUiIGNsYXNzCnJvY19jdXJ2ZSA8LSByb2MoaWZlbHNlKHdwLnRlc3QkUG90YWJpbGl0eSA9PSAiUG90YWJsZSIsIDEsIDApLCBwcmVkLnRyZWVfcHJvYnNbLCAiUG90YWJsZSJdKQpwbG90KHJvY19jdXJ2ZSwgbWFpbiA9ICJST0MgQ3VydmUiLCBjb2wgPSAiYmx1ZSIsIGx3ZCA9IDIpCmFibGluZShhID0gMCwgYiA9IDEsIGNvbCA9ICJncmF5IiwgbHR5ID0gMikKIyBQcmludCBBVUMKY2F0KCJBVUM6IiwgYXVjKHJvY19jdXJ2ZSksICJcbiIpCgoKYGBgCgpTcGxpdHRpbmcgdGhlIGRhdGEgc2V0IGludG8gdHdvIHN1YnNldHM6IFRyYWluaW5nKDgwJSkgYW5kIFRlc3RpbmcoMjAlKToKYGBge3J9CnNldC5zZWVkKDE5NTgpCnRyYWluID0gc2FtcGxlKDIsIG5yb3cod3ApLCByZXBsYWNlPVRSVUUsIHByb2I9YygwLjgsIDAuMikpCndwLnRyYWluPXdwW3RyYWluID09IDEsXQp3cC50ZXN0PXdwW3RyYWluID09IDIsXQoKCgpmaXQudHJlZSA9IHJwYXJ0KFBvdGFiaWxpdHkgfiAuLCBkYXRhPXdwLnRyYWluLCBtZXRob2QgPSAiY2xhc3MiLCBjcD0wLjAwOCkKZml0LnRyZWUKCnJwYXJ0LnBsb3QoZml0LnRyZWUpCgpmaXQudHJlZSR2YXJpYWJsZS5pbXBvcnRhbmNlCgpwcmVkLnRyZWUgPSBwcmVkaWN0KGZpdC50cmVlLCB3cC50ZXN0LCB0eXBlID0gImNsYXNzIikKcmUgPC0gdGFibGUocHJlZC50cmVlLCB3cC50ZXN0JFBvdGFiaWxpdHkpCgpjb19yZSA8LSBjb25mdXNpb25NYXRyaXgocmUpCnByaW50KGNvX3JlKQphcy5tYXRyaXgoY29fcmUsIHdoYXQgPSAiY2xhc3NlcyIpCmFjYyA8LSBjb19yZSRvdmVyYWxsWyJBY2N1cmFjeSJdCmFjYyoxMDAKCnBsb3RjcChmaXQudHJlZSkKcHJpbnRjcChmaXQudHJlZSkKCiMgRXhwbGljaXRseSByZXF1ZXN0IHRoZSBsb3dlc3QgY3AgdmFsdWUKZml0LnRyZWUkY3B0YWJsZVt3aGljaC5taW4oZml0LnRyZWUkY3B0YWJsZVssInhlcnJvciJdKSwiQ1AiXQoKYmVzdGNwIDwtZml0LnRyZWUkY3B0YWJsZVt3aGljaC5taW4oZml0LnRyZWUkY3B0YWJsZVssInhlcnJvciJdKSwiQ1AiXQpwcnVuZWQudHJlZSA8LSBwcnVuZShmaXQudHJlZSwgY3AgPSBiZXN0Y3ApCnJwYXJ0LnBsb3QocHJ1bmVkLnRyZWUpCgpwcmVkLnBydW5lID0gcHJlZGljdChwcnVuZWQudHJlZSwgd3AudGVzdCwgdHlwZT0iY2xhc3MiKQoKcmUgPC0gdGFibGUocHJlZC5wcnVuZSwgd3AudGVzdCRQb3RhYmlsaXR5KQoKY29fcmUgPC0gY29uZnVzaW9uTWF0cml4KHJlKQpwcmludChjb19yZSkKYXMubWF0cml4KGNvX3JlLCB3aGF0ID0gImNsYXNzZXMiKQphY2MgPC0gY29fcmUkb3ZlcmFsbFsiQWNjdXJhY3kiXQphY2MqMTAwCgoKcHJlZC50cmVlX3JhdyA8LSBwcmVkaWN0KGZpdC50cmVlLCB3cC50ZXN0KQpwcmVkLnRyZWVfcHJvYnMgPC0gZXhwKHByZWQudHJlZV9yYXcpIC8gKDEgKyBleHAocHJlZC50cmVlX3JhdykpCnJvY19jdXJ2ZSA8LSByb2MoaWZlbHNlKHdwLnRlc3QkUG90YWJpbGl0eSA9PSAiUG90YWJsZSIsIDEsIDApLCBwcmVkLnRyZWVfcHJvYnNbLCAiUG90YWJsZSJdKQpwbG90KHJvY19jdXJ2ZSwgbWFpbiA9ICJST0MgQ3VydmUiLCBjb2wgPSAiYmx1ZSIsIGx3ZCA9IDIpCmFibGluZShhID0gMCwgYiA9IDEsIGNvbCA9ICJncmF5IiwgbHR5ID0gMikKIyBQcmludCBBVUMKY2F0KCJBVUM6IiwgYXVjKHJvY19jdXJ2ZSksICJcbiIpCgoKYGBgCgpTcGxpdHRpbmcgdGhlIGRhdGEgc2V0IGludG8gdHdvIHN1YnNldHM6IFRyYWluaW5nKDkwJSkgYW5kIFRlc3RpbmcoMTAlKToKYGBge3J9CnNldC5zZWVkKDE5NTgpCnRyYWluID0gc2FtcGxlKDIsIG5yb3cod3ApLCByZXBsYWNlPVRSVUUsIHByb2I9YygwLjksIDAuMSkpCndwLnRyYWluPXdwW3RyYWluID09IDEsXQp3cC50ZXN0PXdwW3RyYWluID09IDIsXQoKCgpmaXQudHJlZSA9IHJwYXJ0KFBvdGFiaWxpdHkgfiAuLCBkYXRhPXdwLnRyYWluLCBtZXRob2QgPSAiY2xhc3MiLCBjcD0wLjAwOCkKZml0LnRyZWUKCnJwYXJ0LnBsb3QoZml0LnRyZWUpCgpmaXQudHJlZSR2YXJpYWJsZS5pbXBvcnRhbmNlCgpwcmVkLnRyZWUgPSBwcmVkaWN0KGZpdC50cmVlLCB3cC50ZXN0LCB0eXBlID0gImNsYXNzIikKcmUgPC0gdGFibGUocHJlZC50cmVlLCB3cC50ZXN0JFBvdGFiaWxpdHkpCgpjb19yZSA8LSBjb25mdXNpb25NYXRyaXgocmUpCnByaW50KGNvX3JlKQphcy5tYXRyaXgoY29fcmUsIHdoYXQgPSAiY2xhc3NlcyIpCmFjYyA8LSBjb19yZSRvdmVyYWxsWyJBY2N1cmFjeSJdCmFjYyoxMDAKCnBsb3RjcChmaXQudHJlZSkKcHJpbnRjcChmaXQudHJlZSkKCiMgRXhwbGljaXRseSByZXF1ZXN0IHRoZSBsb3dlc3QgY3AgdmFsdWUKZml0LnRyZWUkY3B0YWJsZVt3aGljaC5taW4oZml0LnRyZWUkY3B0YWJsZVssInhlcnJvciJdKSwiQ1AiXQoKYmVzdGNwIDwtZml0LnRyZWUkY3B0YWJsZVt3aGljaC5taW4oZml0LnRyZWUkY3B0YWJsZVssInhlcnJvciJdKSwiQ1AiXQpwcnVuZWQudHJlZSA8LSBwcnVuZShmaXQudHJlZSwgY3AgPSBiZXN0Y3ApCnJwYXJ0LnBsb3QocHJ1bmVkLnRyZWUpCgpwcmVkLnBydW5lID0gcHJlZGljdChwcnVuZWQudHJlZSwgd3AudGVzdCwgdHlwZT0iY2xhc3MiKQoKcmUgPC0gdGFibGUocHJlZC5wcnVuZSwgd3AudGVzdCRQb3RhYmlsaXR5KQoKY29fcmUgPC0gY29uZnVzaW9uTWF0cml4KHJlKQpwcmludChjb19yZSkKYXMubWF0cml4KGNvX3JlLCB3aGF0ID0gImNsYXNzZXMiKQphY2MgPC0gY29fcmUkb3ZlcmFsbFsiQWNjdXJhY3kiXQphY2MqMTAwCgoKCnByZWQudHJlZV9yYXcgPC0gcHJlZGljdChmaXQudHJlZSwgd3AudGVzdCkKcHJlZC50cmVlX3Byb2JzIDwtIGV4cChwcmVkLnRyZWVfcmF3KSAvICgxICsgZXhwKHByZWQudHJlZV9yYXcpKQpyb2NfY3VydmUgPC0gcm9jKGlmZWxzZSh3cC50ZXN0JFBvdGFiaWxpdHkgPT0gIlBvdGFibGUiLCAxLCAwKSwgcHJlZC50cmVlX3Byb2JzWywgIlBvdGFibGUiXSkKcGxvdChyb2NfY3VydmUsIG1haW4gPSAiUk9DIEN1cnZlIiwgY29sID0gImJsdWUiLCBsd2QgPSAyKQphYmxpbmUoYSA9IDAsIGIgPSAxLCBjb2wgPSAiZ3JheSIsIGx0eSA9IDIpCiMgUHJpbnQgQVVDCmNhdCgiQVVDOiIsIGF1Yyhyb2NfY3VydmUpLCAiXG4iKQpgYGAKCgo=